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

Question

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

---

Answer 1

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.