Для данного x вычислить значение функции 
          корень из 5x+3, если x>=13
F(x)=   4x+3\x-5x^2, если x<-13

           -

А, понял

var x: real;begin readln(x); if (x >= 13) then writeln('F(', x, ') = ', sqrt(5 * x + 3)) else writeln('F(', x, ') = ', (4 * x + 3) / (x - 5 * sqr(x)));end.

спасибо

Обращайтесь