Исправить ошибку 113 - Turbo Pascal

Формулировка задачи:

Выдает ошибку 113, подскажите в чем дело

program perimetr;
uses crt;
var x,y:real;
p:real;
begin
clrscr;
repeat
writeln('vvesti  x');
readln(x);
y:=sqrt(abs(cos(x*x*x)))/ln(x+12);
writeln('y=',y:0:2);
 readln;
end.

Решение задачи: «Исправить ошибку 113»

Листинг программы

program perimetr;
uses crt;
var x,y:real;
p:real;
begin
clrscr;
repeat
writeln('vvesti  x');
readln(x);
until x>-12;
y:=sqrt(abs(cos(x*x*x)))/ln(x+12);
writeln('y=',y:0:2);
 readln;
end.

Объяснение кода листинга программы

Создаётся программа под названием perimetr.
В программе используются три переменные: x, y и p.
Используется библиотека crt.
В цикле repeat-until считывается значение переменной x.
Выводится сообщение vvesti x и считывается значение переменной x.
Значение переменной x сравнивается с -12, и цикл продолжается, пока x больше -12.
Вычисляется значение переменной y по формуле y = sqrt(abs(cos(xxx)))/ln(x+12).
Выводится сообщение y=, и выводится значение переменной y с точностью до двух знаков после запятой.
Считывается значение переменной y.
Программа завершается.