Составить по алгоритму программу на языке программирования Pascal.
Алгоритм более, чем странный. Но, как говорится, каков вопрос ... var x,y:integer; begin x:=2; y:=3; repeat if x>y then y:=y*x else x:=x*y; until x>y; end.