uses crt;
type
student=record
fam:string[15];
inn:string[12];
datenal:string[10];
yearb:string[10];
yearpos:string[4];
kurs:string[1];
group:string[10];
kolvos:string[1];
a1,a2,a3,a4,a5:2..5;
b1,b2,b3,b4,b5:2..5;
end;
var klass:array[1..n]of student;
s:student;
i,n:integer;