Исправить ошибку 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 - Turbo Pascal»

textual
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.

14   голосов, оценка 3.643 из 5


СОХРАНИТЬ ССЫЛКУ