Даны результаты тестирования по математике 25 учащихся, они находятся в диапазоне от 52 до 100 баллов. Вывести на экран

var a: array[1..25] of integer; i: integer;begin i:= 1; while( i <= 25 ) do begin write(\'Введите результаты ученика №\', i, \' =\'); readln( a[i] ); if (a[i] >= 52) AND (a[i] <= 100) then i:= i+1 else write(\'Ошибка\'); end; writeln(\'Результаты больше 90 баллов:\'); for i:=1 to 25 do begin if a[i] > 90 then write(a[i], \' , \'); end;end.В первом цикле заполняются в массив \"a[]\" результаты всех 25 учеников. Если при вводе произошла ошибка - введенный результат находится вне диапазона 52..100, то печатается надпись \"Ошибка\" и ввод результата для этого ученика повторяется. Получается, что количество циклов заранее неизвестно, поэтому используется оператор \"while\".Во втором цикле выводятся на экран, через запятую, все результаты, имеющие больше 90 баллов.Количество циклов заранее известно, поэтому используется оператор \"for\".