Program ch ;
Var x:integer ;
BEGIN
X:=1;
While xl=7 Do(можешь выбрать другое число)
Write (x, ' ') /в' ' это пробел /
X:=x+1
End ;
END.
