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

Задача №3

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