Расшифровать текст, зашифрованный методом двойной перестановки.

ЦТААЙПЕЕ_ТБГУРРСВЬЕ_ОРЗВВ

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен

иванов - парикмахер

петров - плотник

сидоров - мельник

гришин - почтальон

алексеев маляр

третье, там где пять

5> 4 и не 5> =6