Вводится нат.число найти сумму этого числа и числа записанного теми же цифрами в обратном порядке. паскаль надо сегодня утром последние​

uses

sysutils;

var

num, reversnum: string;

j: char;

i: integer;

begin

readln(num);

reversnum : = num;

for i : = 1 to length(num) div 2 do

begin

j : = reversnum[i];

reversnum[i] : = reversnum[length(num) - i + 1];

reversnum[length(num) - i + 1] : = j;

end;

writeln(strtoint(num) + strtoint(reversnum));

end.

var  

    n: integer;

    i: integer;

    sum: integer;

    result: integer;

begin

    writeln('введите значение n: ');

    readln(n);

   

    sum : = 0;     result : = 1;

    for i : = 1 to n do

    begin

        sum : = sum + i;

        result : = sum * result;

    end;

    writeln('конечное значение = ', result);

end.

// pascalabc.net 3.4.2, сборка 1785 от 06.09.2018

// внимание! если программа не работает, обновите версию!

begin

  var (m,n): =(3,readinteger('n ='));

  seqgen(n-1,m,t-> begin result: =t+m; m+=1 end)

      .aggregate(biginteger(,q)-> p*q).println

end.

n = 5

2700

n = 92

2905717351708908985405643744987697767130796956644732769142761496541317116624931720391311988753812039943077115478561297954388733569194661753822436538090873756174074892748228397527408937781819534979620536526957830995968000000000000000000000000000000000000000000