The task in pascal: Enter 10 numbers from the keyboard – positive and negative.

The task in pascal: Enter 10 numbers from the keyboard – positive and negative. Replace all negative numbers with their moduli and print all the resulting 10 numbers.

var
a: array [1..10] of integer; // the numbers entered by the user will be elements of the array and will change during the program.
i: byte;

begin

cls;
for i: = 1 to 10 do
begin
write (‘Enter’, i, ‘number:’);
readln (a [i]);
end;
for i: = 1 to 10 do
begin
a [i]: = abs (a [i]);
write (a [i], ”);
end;
end.