Составить алгоритм и программу для вычисления значения функции f по формулам: sqrt(ab)/3(a+b)^2 - при a> 0, b> 0 (pascal)

ответил в комментарий к ответу в вопросе

program p1;
var a, b, F: real;
begin
writeln('Введите A >> ');
readln(a);
writeln('Введите b >> ');
readln(b);
if (a>0) and (b>0.0) then
begin
F:=sqrt(a*b)/3*sqr(a+b);
writeln('F(a,b)='+F);
end
else 
writeln('Ошибка. A<0 или B<0');
end.