program test;
uses crt;
var x,z:real;
begin
clrscr;
x:=-3;
while x<=6 do
if (abs(x)<>2) and (x<>5) then
begin
z:=sqr(sin(x))/(sqr(x)-4)+sqr(cos(x))/((x-2)*(x-5));
x:=x+0.5;
writeln(z:6:2);
end
else
x:=x+0.5;
readln;
end.
program test;
uses crt;
var x,z:real;
begin
clrscr;
x:=-3;
while x<=6 do
if (abs(x)<>2) and (x<>5) then
begin
z:=sqr(sin(x))/(sqr(x)-4)+sqr(cos(x))/((x-2)*(x-5));
x:=x+0.5;
writeln(z:6:2);
end
else
x:=x+0.5;
readln;
end.