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

Question

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

---

Answer 1

Var x,y:real;

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

Answer 2

Var x,y:real;
Begin
Write('x = ');ReadLn(x);
if x < 10 then y:=-x+5
else y:=Sqr(Cos(x))+2*x;
WriteLn('y = ',y);
End.