a*b-√a+b программа паскаль .помогите плиз за инфа

Var

a,b,c: real;

BEGIN

writeln('Ввод а');

readln(a);

Writeln('Введите b: '); Readln(b);

c:=a*b-sqrt(a+b);

Writeln('anwer: ',c);

END.