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

Для процедуры тут слишком мало команд. смысла создавать ее нет.
begin
readln(n);
writeln('0')
for i:=1 to n do
writeln(i);
readln;
end.