var
x, i: integer;
begin
read(x);
for i:=1 to x do
begin
writeln(i);
end;
end.
admin ответил на вопрос 14.07.2022
как написать все числа от 1 до х в паскале?
var
x, i: integer;
begin
read(x);
for i:=1 to x do
begin
writeln(i);
end;
end.