program gwr;
var
i,n : integer;
begin
i := 1;
writeln('Введите N');
read(n);
repeat
writeln(i);
i := i +1;
until i > n
end.
program gwr;
var
i,n : integer;
begin
i := 1;
writeln('Введите N');
read(n);
repeat
writeln(i);
i := i +1;
until i > n
end.