program e1;
var
  x, y: real;
begin
  writeln('Введите х');
  readln(x);
  if x < 5 then y := (4 * sqr(x) + 1) / (-5)
  else y := 3 * sqr(x) - 2;
  writeln('y=', y)
end.
--------------------------------------------
program e2;
var
  x, y: real;
begin
  writeln('Введите х');
  readln(x);
  if x > -4 then y := (5 * sqr(x) + 2) / (x + 4)
  else y := 3 * sqr(x) + 7;
  writeln('y=', y)
end.

У меня нет Турбо Паскаля, вставьте там в начале, как всегда пишете директиву uses Crt