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

uses crt; const n=10; var a: array [1..n] of integer;     i: integer; begin writeln('Дан массив'); for i:=1 to n do     begin     a[i]:=random(19)-9;     write(a[i]:5);     end; writeln; writeln('Преобразованный массив'); for i:=1 to n do     begin     if a[i]<0 then a[i]:=a[i]*i*i;     write(a[i]:5);     end; end.

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

Задача №4
var
  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.