ЛАБОРАТОРНАЯ РАБОТА №2
Сформировать массив студентов из 15 записей, содержащих информацию: фамилия и инициалы, группа, количество выполненных лабораторных работ (1..10). Напечатать фамилии студентов, выполнивших более 6 работ и список студентов, выполнивших менее двух.

Код:
Program S2Lab2;
uses crt;
type stud=record
     fam:string[20];
     grup:string[20];
     lab:integer;
     end;
Var sp:array [1..10] of stud;
    n,i:integer;
Begin
clrscr;
writeln;
write('Vvedite kol vo zapisey (ot 1 do 15): ');
readln(n);
If n>10 then write('Zap bolshe 15!!!! Nado 15<') Else
Begin
writeln('Vvedite dannb)e');
For i:=1 to n do
 Begin
  write('Familia i iniciali studenta: ');
   readln(sp[i].fam);
  write('Gruppa: ');
   readln(sp[i].grup);
  write('Kol vo vipolnenih lab: ');
   readln(sp[i].lab);
 End;
writeln('Spisok studentov vipolnivshih >6 lab');
For i:=1 to n do
if sp[i].lab>6 then
 Begin
  write(sp[i].fam,'  ');
  write(sp[i].grup,'  ');
  writeln(sp[i].lab);
 End;
writeln('Spisok studentov vipolnivshih <2 lab');
For i:=1 to n do
if sp[i].lab<2 then
 Begin
  write(sp[i].fam,'  ');
  write(sp[i].grup,'  ');
  writeln(sp[i].lab);
 End;
End;
readln;
End.