Дан массив из 6 целых чисел. умножить все отрицательные числа на 5. вывести элементы массива.

Program n1;
const n=6;
var a: array [1..n] of integer;
i: integer;
begin
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then a[i]:=a[i]*5;
end;
for i:=1 to n do writeln(a[i]);
end.