Лабораторные работы3 / Равиль / LITTLE_B

Program student;
Uses crt;
Var
vs,s,h,n,k,i,j,t: integer;
eks: array [1..30,1..7] of integer;
usp: array [1..30,1..5,1..5] of integer;
inf: array [1..30,1..8] of string;
sem: array [1..30] of integer;
begin
clrscr;
write('vvedite chislo studentov '); readln(n);
for i:=1 to n do
begin
write('vvedite familiu studenta ',i,' ');readln(inf[i,1]);
write('vvedite INN studenta ',i,' ');readln(inf[i,2]);
write('vvedite datu vidachi svidetelstva studenta ',i,' ');readln(inf[i,3]);
write('vvedite datu rosdenia studenta ',i,' ');readln(inf[i,4]);
write('vvedite god postuplenia v univer studenta ',i,' ');readln(inf[i,5]);
write('kurs ');readln(inf[i,6]);
write('gruppa ');readln(inf[i,7]);
write('kolichestvo semestrov obuchenia studenta ',i,' ');readln(sem[i]);
for j:=1 to sem[i] do
begin
write('kolichestvo eksamenov semestra ',j,' '); readln(eks[i,j]);
end;
for j:=1 to sem[i] do
for t:=1 to eks[i,j] do
begin
write('ocenka za eksamen ',t,' semestra ',j,' '); readln(usp[i,j,t]);
end; end;

clrscr;
vs:=0;
for i:=1 to n do
begin
s:=0; k:=0;
for j:=1 to sem[i] do
begin
s:=s+eks[i,j];
writeln('');
for t:=1 to eks[i,j] do
begin
if (usp[i,j,t]=5)or(usp[i,j,t]=4) then k:=k+1;
end;
end;
if s=k then
begin
vs:=vs+1;
writeln('informacia o studente, imeushem tolko 4 and 5:' );
for h:=1 to 7 do writeln(inf[i,h]);
end;
end;
if vs=0 then
begin
clrscr;
for i:=1 to n do
begin
s:=0; k:=0;
for j:=1 to sem[i] do
begin
s:=s+eks[i,j];
writeln('');
for t:=1 to eks[i,j] do
begin
if (usp[i,j,t]=5)or(usp[i,j,t]=4)or(usp[i,j,t]=3) then k:=k+1;
end;
end;
if s=k then
begin
writeln('informacia o studente, imeushem tolko 3, 4 and 5:' );
for h:=1 to 7 do writeln(inf[i,h]);
end;
end;
end;
Readkey;
end.