Здравствуйте, нужно сделать в 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.