На паскале.4. Девятиклассники участвовали в викторине по математике. Необходимо было ответить на 20вопросов. Победителем викторины считается участник, правильно ответивший на наибольшееколичество вопросов. На Как узнать сколько вопросов победитель ответил правильно? Если естьучастники викторины, которые не смогли дать правильный ответ ни на один из вопросов,выведите YES, иначе выведите NO. Гарантируется, что есть участники, правильно ответившиехотя бы на один из вопросов.Программа получает на вход число участников викторины N (1 ≤ N ≤ 50), затем для каждогоучастника вводится количество вопросов, на которые получен правильный ответ

var N, i, a, m:integer;

c:boolean;

begin

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

 readln(N);

 if ((N < 1) or (N >50))then begin

   writeln('Ошибка');

   exit;

 end;

 m := 0;

 c := false;

 for i:=1 to N do begin

   writeln('На сколько вопросов правильно ил ',i,' участник:');

   readln(a);

   if ((a < 0) or (a > 20)) then begin

     writeln('Ошибка');

     exit;

   end;

   if (a = 0) then

     c := true;

   if (a > m) then

     m:= a;

 end;

 writeln('Количество вопросов, на которые ил победитель правильно: ', m);

 if (c = false) then

   writeln('Есть ли участники, которые не или ни на один вопрос правильно: NO')

 else write('Есть ли участники, которые не или ни на один вопрос правильно: YES');

end.