Сделайте блок схему по этой программе, )) 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.
