function multiply(a,b: real): real;
begin
  multiply := a*b;
end;