User-defined functions in Object Pascal

[Qomplainerz]

function Multiply(x, y: Double): Double;
begin
  Result := x * y;
end;

begin
  // Variable declaration
  var
    result: Double;
    a: Double := 2.5;
    b: Double := 3.7;

  result := Multiply(a, b);

  WriteLn('Result of multiplication:', result:0:2);
end.