Сделал программу паскаль ответ не выдает, помогите пожалуйста

Program labdop1;
const e=2.74;
var
x,y,V:real;
begin
read(x,y);
if xy then V:=abs(ln(abs(x)-1));
writeln('V=',V:10:3);
end.странно как то

я другое пишу

Program labdop1;
const e=2.74;
var
x,y,V:real;
begin
read(x,y);
if xy then V:=abs(ln(abs(x)-1)); writeln('V=',V:10:3); end.