Составить программу √A*B +0,73

Question

Составить программу √A*B +0,73

Answer 1

Var A,B:real;
begin
  readln(A, B);
  writeln( sqrt(A*B) + 0.73 );
end.