Вопрос, который вызвал трудности

При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко второму экзамену (программа Паскаль)

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко второму экзамену (программа Паскаль)

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

type zap=array [1..100] of record
name:string[20];
mark:0..5;
end;
var p:zap;
i,N:integer;
c:char;
begin
readln(N); {Количество}
for i:=1 to N do
begin
p[i].name:=;
repeat
read(c);
p[i].name:=p[i].name+c;
until c=;
read(p[i].mark);
end;
for i:=1 to N do
begin
if pi[i].mark>2 then writeln(p[i].name,,p[i].mark)
else continue;
end;
readln;
end.