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

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