Задан массив K (n). И отрицательные элементы массива заменить на их квадраты. Вывести их индексы и новые значения.

Const

i=10;

var k:array[1 ... i] of integer;

n:integer;

begin

writeln ('Введите элементы массива');

for n:=1 to i do begin

read (k[n]);

if k[n]<0 then k[n]:=sqr (k[n]);

end;

for n:=1 to i do write (k[n], ' ');

end.