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

Question

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

---

Answer 1

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

---