Программирование, не могу найти ошибку в коде

program program1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x,y,l,r:Real;

begin
writeln('vvedite x');read(x);
writeln('vvedite y');read(y);
Writeln('x=',x:4:3,' ','y=',y:4:2);
if (x =0.211) and (y=0.57) then begin l:=(2*(y*y*y)+13*sqrt(Abs(x*x*x)))/(y*((sin(x)/cos(x))*(sin(x)/cos(x)))); end
else if (x=0.58) and (y=0.34) then begin l:=(Sqrt(x+sqr(y))+2*x*(y*y*y))/(sqr(x)+(Ln(x)*Ln(x))*x*y+exp(y)); end;
writeln('l=',l:5:2);
Writeln('To continue press Enter');
readln(r);
end.

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x, y, l, r: Real;
epsilon: Real = 1e-6; // small tolerance value

begin
writeln('vvedite x'); read(x);
writeln('vvedite y'); read(y);
Writeln('x=', x:4:3, ' ', 'y=', y:4:2);

if (Abs(x - 0.211) < epsilon) and (Abs(y - 0.57) < epsilon) then
l := (2 * (y * y * y) + 13 * Sqrt(Abs(x * x * x))) / (y * ((sin(x) / cos(x)) * (sin(x) / cos(x))));
else if (Abs(x - 0.58) < epsilon) and (Abs(y - 0.34) < epsilon) then
l := (Sqrt(x + sqr(y)) + 2 * x * (y * y * y)) / (sqr(x) + (Ln(x) * Ln(x)) * x * y + exp(y));

writeln('l=', l:5:2);
Writeln('To continue press Enter');
readln(r);
end.

брат ты лучший, спасибо огромное

<3