Помогите составить программу  на языке паскаль,пожалуйста

Найти значение функции (все переменные принимают действительныезначения).

var i,a,b,f:real;Вроде такbegin  writeln('Введите a=');  read(a);  writeln('Введите b=');  read(b);  f:=sqrt(PI/8)*(sqrt((sqrt(a+b))/(sqr(a)+sqr(b)))-a*(sqr(b)*b));  writeln(f);end.