ребят решите пример под номером 3)))на языке паскаль!) спасибо)!

  uses Crt;  var x, F: real;begin ClrScr; Write (' X = '); ReadLn (x); if x<=2 then   F:=-sqr(x)+4*x+5          else     F:= 1/(sqr(x)+4*x+5);WriteLn (' F(',x:6:2,') =', F:6:3);WriteLn;ReadLn;end.