Составить программу, которая меняет элементы массива на противоположные по знаку, массив заполняется с клавиатуры. Решить

program zz1;const n = 5; // задаем количество чисел в массивеvar i:integer; // задаем переменную целого типа для циклаm:array [1..n] of integer;beginfor i:=1 to 5 do // организуем цикл, в котором введем с клавиатуры n заданных чисел в массивread(m[i]);for i:=1 to 5 do // организуем цикл, в котором число из массива умножим на -1, в результате чего число в массиве поменяет знак на противоположныйm[i]:=m[i] * (-1);for i:=1 to 5 dowrite(m[i], \' \'); // выводим полученные числа из массива в строчку через пробелend.