Question

вывести на экран числа от 1 до n и от n до 1 в две строки

Answer 1

PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  1.To(ReadInteger('n=')).Println.Reverse.Println
end.

Пример
n= 15
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1

Answer 2

Program n1;
var n,i: integer;
begin
readln(n);
for i:=1 to n do write(i,' ');
writeln;
for i:=n downto 1 do write(i,' ');
end.