Сделайте пожалуйста блок схему по этой программке, спасибо ))program test;uses crt;var

Сделайте пожалуйста блок схему по этой программе, спасибо ))
program test;
uses crt;
var po,otv,p:char;
s:integer;
fam,imya: string[15];
function proverka(p: char): integer;
begin
if p=po then begin writeln('Верно'); s:=s+1; end else writeln('Неправильно. Правильный ответ - ',po);
end;
begin
Write('Введите вашу фамилию: ');
read(fam);
Write('Введите ваше имя: ');
read(imya);
S:=0;
clrscr;

writeln('1. Что такое целый тип?');
writeln('A.writeln');
writeln('B.integer');
writeln('C.char');
writeln('D.real');
write('Введите ответ: ');
po:='B';
readln(otv);
proverka(otv);
Writeln('Для продолжения нажмите - Enter');
readln; clrscr;

writeln('2. Что является переменной в Pascal?');
writeln('A.mod');
writeln('B.real');
writeln('C.type');
writeln('D.var');
write('Введите ответ: ');
po:='D';
read(otv);
proverka(otv);
Writeln('Для продолжения нажмите - Enter');
readln; clrscr;

writeln('3. Как записывается тип данных?');
writeln('A.type');
writeln('B.set');
writeln('C.write');
writeln('D.record');
write('Введите ответ: ');
po:='A';
read(otv);
proverka(otv);
Writeln('Для продолжения нажмите - Enter');
readln; clrscr;

writeln('4. Постоянная величина в Pascal?');
writeln('A.case');
writeln('B.const');
writeln('C.and');
writeln('D.lable');
write('Введите ответ: ');
po:='B';
read(otv);
proverka(otv);
Writeln('Для продолжения нажмите - Enter');
readln; clrscr;

writeln('5. Конец команды кончается словом?');
writeln('A.not');
writeln('B.for');
writeln('C.end');
writeln('D.program');
write('Введите ответ: ');
po:='C';
read(otv);
proverka(otv);
Writeln('Для продолжения нажмите - Enter');
readln; clrscr;

if s=5 then writeln(fam,' ',imya,' вы получили оценку - 5 Молодец!');
if s=4 then writeln(fam,' ',imya,' вы получили оценку - 4 Превосходно');
if s=3 then writeln(fam,' ',imya,' вы получили оценку - 3 Старайся') ;
if (s=0) or (s=2) then writeln(fam,' ',imya,' вы получили оценку - 2 Плохо') ;
end.