Опишите, используя структуру записи, вступительные экзамены ЕГЭ, на которых абитуриенты сдавали три предмета, а для поступления надо было набрать 210 баллов. Составьте программу, считывающую с клавиатуры результаты всех вступительных экзаменов и выводящую на экран информацию:1). Список поступивших студентов;2). Список не поступивших студентов;3). Список студентов, получивших 300 баллов — Pascal(Паскаль)

program test;
uses crt;
type data=record
ex1,ex2,ex3:integer;
end;
person=record
namesurname:string;
ex:data;
end;
var listpersons:array[1..50] of person;
i,n,s,m:integer;
begin
clrscr;
repeat
write('vvedite kol-vo studentov (<=50) '); readln(n);
until n<=50;
for i:=1 to n do
begin
write('vvedite otsenku1 ',i,' studenta ');readln(listpersons[i].ex.ex1);
write('vvedite otsenku2 ',i,' studenta ');readln(listpersons[i].ex.ex2);
write('vvedite otsenku3 ',i,' studenta ');readln(listpersons[i].ex.ex3);
write('vvedite FIO ',i,' studenta ');readln(listpersons[i].namesurname);
end;
writeln('Postupili:');
for i:=1 to n do
if (listpersons[i].ex.ex1+listpersons[i].ex.ex2+listpersons[i].ex.ex3)>210 then
writeln(listpersons[i].namesurname,' ',(listpersons[i].ex.ex1+listpersons[i].ex.ex2+listpersons[i].ex.ex3));
writeln('Ne postupili:');
for i:=1 to n do
if (listpersons[i].ex.ex1+listpersons[i].ex.ex2+listpersons[i].ex.ex3)<210 then
writeln(listpersons[i].namesurname,' ',(listpersons[i].ex.ex1+listpersons[i].ex.ex2+listpersons[i].ex.ex3));
writeln('Polichili 300 ballov:');
for i:=1 to n do
if (listpersons[i].ex.ex1+listpersons[i].ex.ex2+listpersons[i].ex.ex3)=300 then
writeln(listpersons[i].namesurname,' ',(listpersons[i].ex.ex1+listpersons[i].ex.ex2+listpersons[i].ex.ex3));
readln;
end.