Ввести c клавиатуры массив из 5 частей, умножить их на 2

program zz1;

var  i:integer; // задаем переменные целого типа

m:array [1..5] of integer; // обрисовываем массив на пять целых чисел

begin

write( Введите пять чисел: );

for i:=1 to 5 do  // получаем 5 чисел и записываем их в массив

read(m[i]);

for i:=1 to 5 do  // организуем цикл, в котором переберем все числа в массиве

 m[i]:=2 * m[i]; // увеличиваем числа в два раза

write( Результат: );

 for i:=1 to 5 do  // выводим приобретенный массив на экран

write(m[i], );

end.