Var
a,b,c: real;
BEGIN
writeln('Ввод а');
readln(a);
Writeln('Введите b: '); Readln(b);
c:=a*b-sqrt(a+b);
Writeln('anwer: ',c);
END.
