Вычислить значение выражения

PROGRAM evgen_2;
var
x, y, e: integer;
l, t, d, p1, p2, ch, zn,sum, pro: real;
begin
write ('x= ');
readln (x);
write ('y= ');
readln (y);
write ('e= ');
readln (e);
if x>y then
       begin
       ch:=10*y-(exp(ln(e)*x))*ln(exp(ln(x)*5));
       p1:=8*sqr(sin(x)/cos(x));
       p2:=cos(x+y)/sin(x+y);
       zn:=sqrt(p1-p2);
       l:=ch/zn;
       writeln ('L= ',l:1:4);
       end
else
       begin
       t:=0; sum:=0; pro:=0;
       repeat
             begin
             d:=(t*cos(x+y))/(t+1);
             if d>0 then
                sum:=sum+d;
             if d<0 then
                pro:=pro*d;
             t:=t+0.5;
             end;
             until t=10;
             writeln ('сумма= ',sum:1:3);
             writeln ('произведение= ',pro:1:3);
       end;
       readln;
end.