задача-драконы

[evgeniyvol]

Драконы

Известно, что у дракона может быть несколько голов и его сила определяется числом голов. Но как определить силу драконьей стаи, в которой несколько драконов и у каждого из них определенное число голов? Вероятно, вы считаете, что это значение вычисляется как сумма всех голов? Это далеко не так, иначе было бы слишком просто вычислить силу драконьей стаи. Оказывается, что искомое значение равно произведению значений числа голов каждого из драконов. Например, если в стае 3 дракона, у которых 3, 4 и 5 голов соответственно, то сила равна 3*4*5 = 60. Предположим, что нам известно суммарное значение голов драконьей стаи, как нам вычислить максимально возможное значение силы этого логова драконов? решите пожалуйста
Входные данные

В единственной строке входного файла INPUT.TXT записано натуральное число N (0 < N < 100) – количество голов драконьей стаи.
Выходные данные

В единственную строку выходного файла OUTPUT.TXT нужно вывести максимально возможное значение силы, которая может быть у стаи драконов из N голов.

Примеры№        INPUT.TXT            OUTPUT.TXT
1	                      6	                   9
2	                      8	                  18
3	                     13	                  108

[Zer0]

Type
  om = array [2..3] of Integer;

Var i,ost,n3,n2,N:integer;
     max, P: Real;
     A : om;

Function power (A : om):real;
var i : Integer;
     x, y: Real;
begin
 x := 1;
 for i := 1 to A [3] do
    x := x * 3;
 y := 1;
 for i := 1 to A [2] do
    y := y * 2;
 power := x * y;
end;

Begin
 Assign (input, 'input.txt');
 Reset (input);
 ReadLn (N);
 A [3] := 0;
 A [2] := 0;
 n3 := N div 3;
 A [3] := n3;
 ost := N - 3 * n3;
 n2 := ost div 2;
 A [2] := n2;
 P := power (A);
 max := P;
 for i := 1 to n3 do
 begin
   Dec (n3);
   A [3] := n3;
   ost := N - n3 * 3;
   n2 := ost div 2;
   A [2] := n2;
   P := power (A);
   if P > max then
      max := P;
 end;

 Assign (output, 'output.txt');
 ReWrite (output);
 Write (max:0:0);
End.

[veniside]

по-моему так:

http://ideone.com/RoB0d

Zer0, ого

[evgeniyvol]

Zer0,спасибо большое!программа работает