Помогите с паскалем)

[Shrek-Ogre]

Помогите пожалуйста написать программу, буду очень благодарен)

вот что у меня получилось):

program lab2;
var max,u,x,y,A,B,C:real;
begin
x:=1;
while(x<=3)
        do begin
        y:=2;
        while(y<=4)
                do begin
                A:=(exp(1)*sin(sqr(x)-sqrt(y)));
                B:=cos(exp((2/3)*ln(x*y)));
                C:=cos(x*sqr(y));
                if A<B then max:=B else max:=A;
                if (x/sqr(y))<1 then U:=max else U:=C;
                writeln(' x=',x:4:2,' y=',y:4:2,' U=',u:4:2);
        y:=y+1.5;end;
x:=x+1.3;end;
end.