Задание 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.