Bлюбое число, которое вводится в a. пример ввожу слово 45, выводит слово 45.var a: string; b: integer; beginread(a); if a='слово'+b thenbeginwriteln(a); end; end.

Фактически требуется вычислить значение следующего выражения: в связи с ограниченной разрядностью представления целых чисел в традиционном паскале, используется появившийся в pascalabc.net 3.0 тип данных biginteger, имеющий произвольную разрядность. // pascalabc.net 3.0, сборка 1144 от 16.01.2016 begin   var n: =readinteger('n=');   var s: biginteger: =0;   for var i: =1 to n do begin       var sp: biginteger: =1;       for var j: =i to 2*i do sp*=j;       s+=sp       end;   writeln('s=',s) end. тестовые решения: n= 10 s=6867491336546 n= 20 s=6790094079076573854634585045346 n= 200 s=16259132945245603272459357532926431055851011262226423901521610672683053074122398284194138200811393508183584635163325580662485661758792994853918852068566553866936403927187322304685846233840511935657079269303199247681681900473643377764171469288217130928626467970695282872799909803648986880297649242631688825602025883316969148173917409343244672476380960595892701641078133125672741993996178795224513183779220724481183819428328185978629676722172834554113541584734035734977004732415721620206280485845346

Можно перебрать, или рассчитать с комбинаторики. перебор: 159, 519, 591, 195, 915, 951. => 6. комбинаторика. переопределим так: сколько существует перестановок 3х предметов, или сколькими способами можно расставить три цифры на свои места. ответ 3! =3*2*1=6.  можно получить из таких суждений: на первое место можно выбрать одну из 3х цифр. всего возможных вариантов выбрать одну из 3х цифр три.  на второе место можно выбрать уже одну из 2х цифр, т.к. одна уже была поставлена на первое место. вариантов 2. на последнее место останется какая-то одна цифра. вариантов 1. отсюда всех возможных вариантов: 3*2*1