Делим крор на мириад, умножаем на гросс и прибавляем шестое число кармайкла. результат умножаем на разницу между числом рамануджана-харди и доцандом. что за число получилось? !

Var multiplication, summ: real; i: integer; massive = array[1..15] of real; begin multiplication: =1; randomize;     for i: =1 to 15 do     begin       massive[i]: =random(20)-20;       multiplication: =multiplication  * massive[i];         summ: =summ+massive[i];     end;     if  multiplication  > summ     then           begin             writeln('multiplication elements of massive more');         end     else           begin               writeln('summ  elements of massive more');           end; end.

Интересная ) var i,n : integer; begin   n: =99;   for i: =1 to n do begin        case i of          11..14 : writeln('мне ',i,' лет');           else              case i mod 10 of          1: writeln('мне ',i,' год');           2..4: writeln('мне ',i,' года');           else              writeln('мне ',i,' лет');               end;         end;   end; end.