Вопрос Нужен код который бесконечно будет выводить числа от 1 до бесконечности в порядке возрастания

[юра23]

Нужен код который бесконечно будет выводить числа от 1 до бесконечности в порядке возрастания

 

[Player72]

Паскаль АВС var i:integer; begin while true do begin write(i,); inc(i); sleep(100) end; end.