"Ветвления" [Вычислить значение функции]
(3, 4)

Задание 3

var

 y, x: Real;

begin

   Write ('Введите x: ');

   ReadLn (x);

   y := 3 / (x - 5);

   WriteLn ('y = ' + FloatToStr (y));

end.

// ----------------------------------------------

Задание 4

var

 y, x: Real;

begin

   Write ('Введите x: ');

   ReadLn (x);

   if x < -1 then

     y := 2 * x + 4

   else if x > 3 then

     Sqrt (x + 7)

   else

     y := 3 * x * x - x + 1;

   WriteLn ('y = ' + FloatToStr (y));

end.