Дано n чисел. замените все отрицательные числа их модулями. язык программирования паскаль.

uses crt;
var
n,i:integer;
a:array[1..1000] of integer;
BEGIN
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
begin
if a[i]<0 then a[i]:=abs(a[i]);
for i:=1 to n do write(a[i],' ');
END.

var

 n,i,a:integer;

begin

 readln(n);

 for i:=1 to n do

 begin

  read(a);

  write(abs(a),' ');

end;

end.