Домашнее задание №19 на 29.04.2016

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