Question

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

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.