var a: array[1..5] of integer; i: integer;begin for i := 1 to 5 do begin readln(a[i]); if(a[i] < 0) then a[i] := a[i] * (-1); end; for i := 1 to 5 do write(a[i], ' ');end.
var
a: array[1..5] of integer;
i: integer;
begin
for i := 1 to 5 do begin
readln(a[i]);
if(a[i] < 0) then a[i] := a[i] * (-1);
end;
for i := 1 to 5 do write(a[i], ' ');
end.