Программирование разветвляющихся вычислительных процессов

var
  a,b,c,x,y: real;
begin
  repeat
    write('Введите значение x (x<=3): ');
    readln(x);
  until x<=3;
  write('Введите значение y: ');
  readln(y);
  a:=exp((1/2)*ln(3-x))+exp((y/2)*ln(exp(1)));
  b:=sin(x/2)+sqr(cos(y));
  c:=1+2*sqr(x)-exp((1/2)*ln(abs(y)));
  writeln('U = ',max(a,b)/min(b,x));
end.

var
  a,b,c,x,y: real;
  max,min: real;
begin
  repeat
    write('Введите значение x (x<=3): ');
    readln(x);
  until x<=3;
  write('Введите значение y: ');
  readln(y);
  a:=exp((1/2)*ln(3-x))+exp((y/2)*ln(exp(1)));
  b:=sin(x/2)+sqr(cos(y));
  c:=1+2*sqr(x)-exp((1/2)*ln(abs(y)));
  if a>b then max:=a
    else if b>a then max:=b
  if b<c then min:=b
    else if c<b then min:=c
  writeln('U = ',max/min);
end.