Решите пожалуйста 19 номер

Question

Решите пожалуйста 19 номер

---

Answer 1

Var
   x,y:real;
Begin
Write('x = ');ReadLn(x);
if x > 5 then y:=2*Cos(x)
else if x < 5 then y:=14-x
     else y:=30;
WriteLn('f(',x,') = ',y)
End.