Ответ:

Var a,b,c,d,e:integer;

begin

d:=1;

e:=0;

writeln('введите количество учеников');

readln(a);

for b:=1 to a do begin

writeln('введите количество правильных ответов для ',d,' ученика' );

readln(c);

while (c>10) or (c<0) do begin

writeln('вы ввели неверное число, попробуйте снова');

readln(c);

end;

if c = 10 then e:=e+1;

d:=d+1;

end;

if (e>=1) then writeln('yes ')

else writeln('no');

end. 

Подробнее - на Znanija.com - https://znanija.com/task/12271211#readmore