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

1)
var a:integer;
begin
for a:=1 to 5 do
write(a,' ');
end.
2)
var a:integer;
begin
for a:=5 downto 1 do
write(a,' ');
end.