Написать прогу по информатике как можно быстрее. "в массив вводятся результаты тестирования n учеников(целые числа от 0 до 300). составить программу для замены введенных процентами(от максимально возможного результата 300 ) " заранее большое

Program z1;var i,n:integer;a:array [1..255] of real;beginwriteln('введите количество учеников');readln(n);for i:=1 to n dobegin read(a[i]);write('     ');if (a[i]<=300) and (a[i]>=0) then a[i]:= a[i]/3else writeln('не входит в условие');end;for i :=1 to n dowrite(a[i],'%    ');end.