Create a program that changes the elements of the array to opposite signs, the array is filled

Create a program that changes the elements of the array to opposite signs, the array is filled from the keyboard. Solve the problem in pascal.

program zz1;
const n = 5; // set the number of numbers in the array
var i: integer; // set an integer variable for the loop
m: array [1..n] of integer;
begin
for i: = 1 to 5 do // organize a loop in which we enter n given numbers from the keyboard into the array
read (m [i]);
for i: = 1 to 5 do // organize a loop in which the number from the array is multiplied by -1, as a result of which the number in the array will change its sign to the opposite
m [i]: = m [i] * (-1);
for i: = 1 to 5 do
write (m [i], ”); // output the received numbers from the array into a line separated by a space
end.