Question

СРОЧНО ПАСКАЛЬ 8 ВАРИАНТ!!!!

Answer 1

program abc;

var y,x:real;

begin

readln(x);

if x<0 then  

y:=sqr(x)

else

y:=(cos(x)/sin(x)) * (cos(x)/sin(x));

writeln(y);

end.