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

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

program chislo;

var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.

исполняемые файлы:

test.exe = 459 кб

photo.exe = 117 кб

letter.com - 198 кб

графические файлы:

nature.jpg = 314 кб

program.bmp = 361 кб

текст. документы:

comp.doc = 238 кб

получается порядок:

test.exe 

program.bmp

nature.jpg

comp.doc

letter.com

photo.exe