Задание на Delphi

[Bimmer71]

Помогите сделать задание
Желательно полный текст программы....

[Alex_FF]

учитывая, что exp(a) * exp(b) = exp(a + b), можно перемножить экспоненты от этого выражения, а потом взять от получившегося значения логарифм.

program Project6;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  I, Result: Integer;
  S: Real;
begin
  S := 1;
  for I := 1 to 10 do
    if I mod 2 = 0 then
      S := S * Exp(1 * 2 * I * I)
    else 
      S := S * Exp(-1 * 2 * I * I);
  Result := Trunc(Ln(S));
  WriteLn(Result);
  ReadLn;
  ReadLn;
end.