PASCAL ABC Подскажите, пожалуйста, где у меня ошибка....

Question

program Zadanie1; 
 var x,y: Real; 
 begin 
 writeln ('Введите значение x'); 
 readln(x); 
 if x>0 then begin y:=sqrt(abs(cos(x)^2))/(5*ln(abc(x)+1)); 
 writeln ('y=',y:4:1); 
 end; 
 ReadLn; 
 end.

Маньяк Фишер · Accepted Answer

Я б так сделал:

var x,y: Real; 
begin 
y:=0; 
writeln ('Введите значение' x'); 
readln(x); 
if x>0 then 
y:=sqrt(abs(cos(x)*cos(x)))/(5*ln(abs(x)+1)); 
writeln ('y=',y:4:1); 
ReadLn; 
end.