Лаба паскаль.

[Excellent69]

Добрый вечер, камрады. Собственно, очередная лаба на паскале. Раньше не сталкивался с функцией max, собственно, минут 10 пытался понять, что требуется от меня. Условие в картинке, прикрепляю.
Прошу проверить, если есть ошибки, подсказать где, помочь исправить.

program lab5;
var a,b,u,x,y: real;
begin
writeln('введите Х и У');
readln(x);
readln(y);
if (y=0)or(cos(x)=cos(y)) then writeln('функция не определена')
 else
  begin
  a:=ln(abs(cos(x)-cos(y))+x*x/2/y);
  b:=(power(exp(x),x*x+y*y)+sin(abs(4*x-2)));
  if a>b then
   begin 
   writeln('U=',a)
   end;
    if a<b then
    begin
    writeln('U=',b);
    end;
   end;
  end.

[Serge_Bliznykov]

при вычислении b Вы сами себя запутали.
функция exp(arg) - это как раз и есть e в степени arg, никакой power() не нужен:

b := exp( sqr(x)+sqr(y) ) + sin( abs(4*x-2) );

ну и максимальное значение нужно вычислять так:

  if a>b then U:=a else U:=b;
  writeln('U=',u);

[Excellent69]

премного благодарен!