program phuongt;
uses crt;
var n, n1, n2, n3, n4: integer;
begin
clrscr;
n:=1234;
n1:=n div 1000;
n2:=(n div 100) mod 10;
n3:=(n mod 100) div 10;
n4:=n mod 10;
write('Hoan vi cua ', n, ' la: ');
write(n1,n2,n4,n3,' ',n1,n3,n2,n4,' ',n1,n3,n4,n2,' ',n1,n4,n2,n3,' ',n1,n4,n3,n2,' ',n2,n1,n3,n4,' ',n2,n1,n4,n3,' ',n2,n3,n1,n4,' ',n2,n3,n4,n1,' ',n2,n4,n1,n3,' ',n2,n4,n3,n1,' ',n3,n1,n2,n4,' ',n3,n1,n4,n2,' ',n3,n2,n1,n4,' ',n3,n2,n4,n1,' ',n3,n4,n1,n2,' ',n3,n4,n2,n1,' ',n4,n1,n2,n3,' ',n4,n1,n3,n2,' ',n4,n2,n1,n3,' ',n4,n2,n3,n1,' ',n4,n3,n1,n2,' ',n4,n3,n2,n1);
readln
end.
