Напишите процедуру в Паскале, которая выводит на экран в столбик все числа от 0 до N

procedure Proc1 (n, i: integer); / / процедура вывода на экран чисел от 1 до n

begin

for i: = 0 to n do / / начало цикла

begin

writeln (i); / / вывод на экран числа при каждом проходе цикла

end

end;

/ / начало основной программы

var

n: integer;

begin

writeln ('Введите число: '); / / вывод на экран текстовой строки

readln (n); / / считываем переменную - макс. значение, до которого будем выводить числа

Proc1 (n, 0); / / вызов процедуры

end.