Для данного х найти значение функции — Pascal(Паскаль)

      /x^3-3x+11 , x<=4
F(x)=|
     \1/(x^3+13), x>4

program otto_fon_bismark;

uses crt;

var
  x: integer;
  y: real;

begin
  clrscr;
  writeln('Введите x');
  readln(x);
  If x <= 4 then
  begin
    y := exp(x * ln(3)) - 3 * x + 11;
    writeln('Значение функции равно ', y);
  end;
  If x > 4 then
  begin
    y := 1 / (exp(x * ln(3)) + 13);
    writeln('Значение функции равно ', y);
  end;
  readln;

end.

program kopernik;

uses crt;

var
  x: integer;
  y: real;

begin
  clrscr;
  Randomize;
  x := random(1000) - 1000;
  writeln(x);
  If x <= 4 then
  begin
    y := exp(x * ln(3)) - 3 * x + 11;
    writeln('Значение функции равно ', y);
  end;
  If x > 4 then
  begin
    y := 1 / (exp(x * ln(3)) + 13);
    writeln('Значение функции равно ', y);
  end;
  readln;

end.