Здравствуйте, нужно сделать в Pascal

program zadacha; var a,b,x,y,f: real;   begin writeln('vvedite a,b,x'); readln(a,b,x); y:=(sqr(a+b)*x) / (sqrt(sqr(a)+sqr(b))); f:=sqr(cos(y)) + ((a-b)-a*x)  / (y*b); writeln('y =',y:6:2); writeln('f(y) =',f:6:2); end.