Дан целочисленный массив из 5 элементов возвести в квадрат отрицательные элементы

Какой ЯП?

Pascal?

var a:

array[1 ... 5] of integer;

i:integer;

begin

writeln ('Введите 5 чисел') ;

for i:=1 to 5 do

readln (a[i]) ;

for i:=1 to 5 do

if a[i]<0

then writeln (sqr (a[i])) ;

readln;

end.

Program square_negative;

var

a: array[1 ... 5] of integer;

i: integer;

begin

writeln ('Ввод массива: ') ;

for i : = 1 to 5 do

begin

write ('a[', i, '] = ') ;

readln (a[i]) ;

if a[i] < 0 then

a[i] : = a[i] * a[i];

end;

writeln ('Вывод изменённого массива: ') ;

for i : = 1 to 5 do

write (a[i], ' ') ;

end.