program poging5; function twee(N : integer) : integer; var k,macht : integer; begin macht := 1; for k := 1 to N do macht := macht*2; twee := macht; end; procedure geteld; const N : integer = 22; var m1,m2,k,i,getal : integer; bit,code,tel : integer; uit : string; begin m1 := twee(N-1); m2 := twee(N); tel := 0; for k := m1 to m2-1 do begin code := k; uit := '2'; getal := 2; for i := 0 to N-1 do begin bit := code and 1; if bit = 0 then begin uit := uit + '*2'; getal := getal*2; end else begin uit := uit + '/3'; getal := getal div 3; end; if getal = 0 then Break; code := code shr 1; if code = 0 then Break; end; if getal = 27 then begin tel := tel + 1; Writeln(tel:3,getal:3,' = ',uit); end; end; end; begin geteld; end.