Вывести на экран число от 1 до 5 в. а) прямом порядке b) обратном порядке

program zz1;

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

begin

writeln (' числа от 1 до 5 в прямом порядке ');

for i:=1 to 5 do

write (i,' '); / / выводим числа в строчку через пробел в прямом порядке

writeln; / / переходим на новую строку

writeln (' числа от 1 до 5 в обратном порядке ');

for i:=5 downto 1 do

write (i,' '); / / выводим числа в строчку через пробел в обратном порядке

end.