Домашнее задание

var i,n: integer;
begin
writeln('Введите число');
readln (n);
i:=0;
repeat
begin
writeln(i);
i:=i+1;
end; 
until i=n+1;
read;
end.