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

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.
точнее так

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.

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