Помогите решить приз....

Question

Помогите решить приз....

---

Comments

паскаль?

Answer 1

Var
x,y:real;

begin
readln(x);
if x>=5 then y:=sqr(x)+2
else y:=1-cos(x);
writeln(y);
end.