Расшифровать фразу, зашифрованную двойной перестановкой (сначала были переставлены столбцы, затем строки) зшафипралоенж_оьн_дарвона _еаляранвяачда_ерпесанв_ч _и_ентрзи_окевнодлеша_имп робдоевпс_мсхьа_ _ивпсниот есдногтеанн_неовмр_еунпте _йестово_ниинлаетиждсопв_ ндиаеоылпне_ _нвеангт_изла п_бирдльнев_оп_опздевыгеа мдооитеь_смт_надтесубехно аиналжнолешф_зи_уароьсне_

Var  n: word;     t1, t2, t3: byte;   begin    write('введите трехзначное число: ');   readln(n);     t3 : = n mod 10;     n : = n div 10;     t2 : = n mod 10;     t1 : = n div 10;     writeln('сумма цифр: ', t1 + t2 + t3); end. =============================== var n,y: integer; begin    readln(n);   y: =(n mod 10)*10 + n div 10;   writeln(n.tostring+'+'+y.tostring+'='+(n+y)) end.

Program massivy; var array1: array [1..10]  of integer;       i, b: integer; begin   for i: =1 to 10 do       array1[i]: =random(-10, 10);   for i: =1 to 4 do begin       for b: =1 to 4 do           if array1[b] > array1[b+1] then               swap(array1[b], array1[b+1]);   end;   for i: =5 to 9 do begin       for b: =5 to 9 do           if array1[b] < array1[b+1] then               swap(array1[b], array1[b+1]);   end;   for i: =1 to 10 do       writeln(array1[i]); end.