program Calc;
var
a, b: Double;
begin
Write ('A, B = ');
ReadLn (a, b);
if (a <> 0) and (b <> 0) then
WriteLn ('Результат = ', Sqrt (a * b) :20 :20)
else
WriteLn ('Деление на 0');
ReadLn;
end.
program Calc;
var
a, b: Double;
begin
Write ('A, B = ');
ReadLn (a, b);
if (a <> 0) and (b <> 0) then
WriteLn ('Результат = ', Sqrt (a * b) :20 :20)
else
WriteLn ('Деление на 0');
ReadLn;
end.