Напишите процедуру в Паскале, которая выводит на экран в столбик все числа от 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.