Х пен У-тің үлкенін тап?

1 if x< >y then write (x); if x=y then write (y);
2 if x>y then ans:=x; if x<y then ans:=y; if x=y then ans:=1;
3 ans:=3; if x=y then ans :=x; if x=y then ans:=y;
4 if x=y then write  (x) ; if  x<> y  then write (y);
5 if x>y then max:=x; if x<=y then max:=y ; writeln (max).