По готовому коду программы, создать блок-схему. Желательно в Microsoft Visio
type
zap = record
fio: string[40];
Otmetka: array[1..5] of Byte;
end;
zap2 = record
absolut: real;
kacestvo: real;
predmet: string;
end;
var
s: array[1..20] of zap;
v: array[1..20] of zap2;
i, j, n: integer;
UspevAbs, UspevKach : real;
predmet: array[1..5] of string[15];
begin
write ('Введите названия предметов ');
for i:= 1 to 5 do
begin
writeln('введите ',i,'-й предмет: ');
readLn(predmet[i]);
end;
write('Введите количество строк - ');
readln(n);
for i := 1 to n do
begin
write('ФИО - ');
repeat
readln(s[i].fio);
if (length(s[i].fio) > 32) then writeln('ФИО должно быть не больше 32 символов!');
if (length(s[i].fio) < 1) then writeln('ФИО должно быть не пустой!');
until (length(s[i].fio)>=1) and (length(s[i].fio) = 1) and (s[i].Otmetka[j] = 1) and (s[i].Otmetka[j]