Question

Помогите:3 Вывести на экран все натуральные числа до заданного. (в паскале)

Answer 1

var i, n: integer;
begin  write('Введите число: '); readln(n);   
for i := 0 to n do   begin   
write(i, ' ');
end;
end.