Написать программу для вычисления значений переменной Y по заданной формуле

program memory;
    var
    x,y: real;
begin
  readln(x);
  if 5<x<=100 then
    y:=exp(1/3*ln(x));
  else
  if (x<=0) and (x≠-100) then
    y:=4*sqr(x);
  else
    y:=5/3;
    writeln(y);
end.

program memory;
  var
  x,y,n : real;
begin
  writeln('Введите значения x');
  write('x='); readln(x);
  
  if (x>5) and (x<=100) then
   begin
     y:=exp(1/3*ln(x));
     n:=1; 
  end
  
   else
   if (x<=0) and (x=-100) then
   begin
    y:=4*sqr(x);
    n:=2 
   end
   
   else
    if (x<5) then
    begin
     y:=5/3;
     writeln(y);
    end;
  
  writeln('При x=',x);
  writeln('Значение функции y=', y:7:3);
  writeln('Вычисление проводилось по ',n,' строке');
 end.

if x<>-10