Написать программу, которая вычисляет значение переменной y:

Program pr;
uses crt;
var
x,y:real;
flag:boolean;
ch:char;
begin
clrscr;
repeat
repeat
flag:=true;
Writeln('Введите X:');
{$I-}
readln(x);
if ioresult<>0 then begin textcolor(lightred);
 writeln('Ошибка ввода.Х-число');textcolor(lightgray); flag:=false; Readln;end; {$I+}until flag;
 
if (x>5) and (x<=15) then begin
y:=x*x+7;  writeln(y); end;
if (x>=15) then begin
y:=ln( abs(x)-1);
writeln(y); end;
if x<=5 then begin
y:=(sin (x))*(sin (x))*(sin (x))-1;
write('Полученное значение  y:  ');
writeln(y);  end;
textcolor(yellow);
Writeln('Для продолжения ввода нажмите любую клавишу.Для выхода нажмите Esc');textcolor(lightgray);
ch:=readkey;
if ch=#27 then exit;
until ch=#27;
readln;
end.

var
 x: integer;
 y: real;
begin
 readln(x);
  if (x <= 15) and (x > 5) then y:=sqr(x)+7
   else if x <= 15 then y:=ln(abs(x-1))
    else if x > 15 then y:=(sin(x)*sin(x)*sin(x)) - 1;
 writeln(y);
end.