Информатика. Программирование. Работа в Паскале.

var
a,b,x,y,d:real;

begin
b := 17.5;
a := 3.2;
x := -4.8;
y :=b * power(tan(x-(a/power(sin(x/a),2))),2);
d := a*power(exp(1),sqrt(2))*cos(b*x/a);
writeln(b);
writeln(y);

end.