Составить по алгоритму программу на языке программирования Pascal.

Алгоритм более, чем странный. Но, как говорится, каков вопрос ...var x,y:integer;beginx:=2; y:=3;repeatif x>y then y:=y*x else x:=x*y;until x>y;end.