Составьте программу выводящую ** экран числа от 1 до 10, по одному числу в строке

Question

Составьте программу выводящую на экран числа от 1 до 10, по одному числу в строке

Answer 1

Program chisla;
var i:byte;
begin 
for i:=1 to 10 do
 writeln(i);
end.