составить программу выводящую на экран прямой и обратный счёт от 1 до 10 и обратно

Program n1;var i: byte;beginfor i:=1 to 10 do write(i,' ');writeln;for i:=10 downto 1 do write(i,' ');end.