Write a routine in Pascal that prints all the numbers from 0 to N in a column on the screen.

procedure Proc1 (n, i: integer); // procedure for displaying numbers from 1 to n
begin
for i: = 0 to n do // start of the cycle
begin
writeln (i); // display the number on each pass of the loop
end
end;

// start of the main program

var
n: integer;
begin
writeln (‘Enter a number:’); // display a text string
readln (n); // read the variable – max. the value up to which we will output numbers
Proc1 (n, 0); // procedure call
end.