Составьте программу которая осуществляет ввод в массив с клавиатуры 7 целых чисел и заменяет отрицательные на -1

Var a: array[1..7] of integer; i: integer; n1: real; begin writeln('введите 7 целых чисел'); for i: =1 to 7 do begin repeat read(n1); if (n1< > round(n1)) then  writeln('необходимо целое число'); until (n1=round(n1)); a[i]: =round(n1); end; for i: =1 to 7 do begin if a[i]< 0 then a[i]: =-1; end; writeln('полученный массив: '); for i: =1 to 7 do write(a[i]: 5); writeln(''); end.

const

  a: array[1..6]of longint=(7,4,10,6,5,3);

var

  i: longint;

begin

for i: =1 to 6 do  write(9.8*a[i]*1200,' ');

writeln;

end.