Заполнить массив 5 целыми числами с клавиатуры и вывести их в строку в обратном порядке.

ишек это не верно , вара тут никакогонету

program zz1;

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

m:array [1 ... 5] of integer;

begin

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

read (m[i]);

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

write (m[i],' ');

end.