program example_while;
var
i, N: integer; { объявляем переменные }
begin
i := 1; { Присваиваем i значение 1 }
readln(N); { Считываем последнее число }
while i <= N do {Как только i станет больше N, цикл прекратится (можно было бы написать просто <, но пришлось бы добавлять 1 к N) }<br> begin {Открываем операторные скобки}
write(i, ' '); {Выводим i}
Inc(i); {увеличиваем i на один.}
end; { закрываем скобки }
end.