Заменить отрицательные элементы массива М(30) в ячейках, номера которых кратны 5, их квадратам. очень срочно, помогите.

Const n=30;
var m:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do m[i]:=random(20)-10;
for i:=1 to n do write(m[i]:5);
writeln;
for i:=1 to n do
if (m[i]<0) and (i mod 5=0) then
m[i]:=sqr(m[i]);
for i:=1 to n do write(m[i]:5);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.