Нахождение минимума из двух выражений

uses crt;
var x,y,a,b,u,min:real;
begin
clrscr;
write('write x = ');
    readln(x);
write('write y = ');
    readln(y);
    if (cos(x)+cos(y)<>0) then
 
                              a:=Abs(cos(x)+cos(y));
    if x>0 then
                              b:=Exp(10*(exp(ln(x)/3)+exp(ln(x)*(y+2)))/3);
 
if a>b then min:=b else min:=a;
u:=min;
writeln('u=',u:3:3);
end.

uses
  crt;
 
var
  x, y, a, b, u, min: real;
 
begin
  clrscr;
  write('write x = ');
  readln(x);
  write('write y = ');
  readln(y);
  if (cos(x) + cos(y) = 0) or (x <= 0) then
    writeln('Нет решений') else
  begin
    a := Abs(cos(x) + cos(y));
    b := Exp(10 * (exp(ln(x) / 3) + exp(ln(x) * (y + 2))) / 3);
    if a > b then min := b else min := a;
    u := min;
    writeln('u=', u:3:3);
  end;
end.

uses
  crt;
 
var
  x, y, a, b, u, min: real;
 
begin
  clrscr;
  write('write x = ');
  readln(x);
  write('write y = ');
  readln(y);
  if (cos(x) + cos(y) <> 0) then
    a := Abs(cos(x) + cos(y))
    else
    u := real.PositiveInfinity;
  if x < 0 then
    u := real.PositiveInfinity
    else
      begin
        b := Exp(10 * (exp(ln(x) / 3) + exp(ln(x) * (y + 2))) / 3);
        if a > b then min := b
        else min := a;
        u := min;
      end;
  writeln('u=', u:3:3);  
end.