function Multiply(a, b : Integer) : Integer;
begin
   Result := a * b;
end;