Имеется информация по итогам экзаменов в 11 классах. Всего в списке 30 человек. По каждому из школьников имеются следующие сведения: фамилия, номер класса, оценка по алгебре, геометрии и физике. Ввести эти данные с клавиатуры и вывести имена отличников.

program ege;

type pupil=record

familia:string[20];

nclass:byte;

algmark:byte;

geommark:byte;

fizmark:byte;

end;

var ycheniki:array [1..30] of pupil;//массив из 30 учеников

i:integer;

begin
for i:=1 to 30 do

begin

writeln (‘введите фамилию ученика’);
readln(ycheniki[i].familia);

writeln (‘введите номер класса’);
readln(ycheniki[i].nclass);

writeln (‘введите оценку по алгебре’);
readln(ycheniki[i].algmark);

writeln (‘введите оценку по геометрии’);
readln(ycheniki[i].geommark);

writeln (‘введите оценку по физике’);
readln(ycheniki[i].fizmark);
end;

writeln(‘отличники:’);

for i:=1 to 30 do //выводим на экран отличников

if (ycheniki[i].algmark=5) and(ycheniki[i].geommark=5) and (ycheniki[i].fizmark=5) then
with ycheniki[i] do
writeln(familia);

end.