Ребята, пожалуйста помогите!! Нужно написать программы к четырём задачам на паскале.
4) Ввести однородный массив A из N элементов. Отрицательные элементы массива умножить на квадрат собственного индекса. Массив вывести до и после преобразования.

Мне кажется так.ну в паскале сам аккуратно напишешь.

Задача №4var  n, i, mn, mx:integer;  a:array [1..10] of integer;begin  writeln('Vvedite n (<=10):');  readln(n);  writeln('Vvedite massiv');  for i:=1 to n do  readln(a[i]);  writeln('Ishodnii massiv');  for i:=1 to n do  write(a[i],' ');  writeln();  for i:=1 to n do  if a[i]<0 then a[i]:=a[i]*sqr(i);  writeln('Massiv posle obrabotki');  for i:=1 to n do  write(a[i],' ');  writeln();  readln();   end.