Плиз напомните как... вывести число от 1 до x ... по возрастанию.. и убыванию
Можно в цикле for написать по возрастанию: for a:=1 to b или по убыванию: for a:=10 downto b