Блок схема

Program labrab17;
uses crt;
type dan=record
             fam:string[60];
             fiz:byte;
             mat:byte;
             eng:byte;
             ist:byte;
             pro:byte;
             kul:byte;
             end;
 
  var
  n:integer; k,i:byte;
  f:file of dan; p:dan;
  
  procedure zapoln(var n:integer);
begin
  for i:=1 to n do
  begin
  writeln('DANNIE ',i,' STUDENTA:');
  write('FIO:    ');readln(p.fam);
  write('FIZIKA:          ');readln(p.fiz);
  write('MATEMATUKA:      ');readln(p.mat);
  write('ANGLIYSKIY:      ');readln(p.eng);
  write('ISTORIYA:        ');readln(p.ist);
  write('PROGRAMOROVANIE: ');readln(p.pro);
  write('KULTUROLOGIA:    ');readln(p.kul);
  write(f,p);
  end;
  close(f); writeln;
end;
 
begin
assign(f,'student.zap');
rewrite(f);
write('SKILKO STUDENTOV V GRUPPE: '); readln(n);
zapoln(n);
reset(f);
 
while not EOF(f) do
begin
read(f,p);
k:=0;
if p.fiz<3 then k:=k+1;
if p.mat<3 then k:=k+1;
if p.eng<3 then k:=k+1;
if p.ist<3 then k:=k+1;
if p.pro<3 then k:=k+1;
if p.kul<3 then k:=k+1;
if k>4 then writeln('STUDENT : ',p.fam,' NE DOPUSHEN K SESSII!!!')
       else writeln('STUDENT : ',p.fam,' DOPUSHEN K SESSII!!! ') ;
end;
close(f);
end.