program FloatingPointTest;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

function InitA:Double;
begin
  Result := 1.5;
end;

function InitB:Double;
begin
  Result := 2.5;
end;

procedure TestMul;
var
  a, b, c: Double;
begin
  a := InitA;
  b := InitB;
  c := a * b;
  writeln(c);
end;

begin
  try
    TestMul;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.