Очееень сроочноо.......;!!!!!!!!!!!!!!!!!!

Question

Очееень сроочноо.......;!!!!!!!!!!!!!!!!!!

---

Answer 1

Program z1;
var f,x:integer;
begin 
readln(x);
if (x<0) then f:=sin(x)<br>else
f:=cos(x);
writeln(f);
end.