program poging1; procedure test(getal : integer); var twee,drie : int64; m,n,uit : integer; begin twee := 2; drie := 3; n := 1; m := 1; while true do begin uit := twee div drie; if uit = getal then Break; if uit < getal then begin m := m + 1; twee := twee*2; end; if uit > getal then begin n := n + 1; drie := drie*3; end; end; Writeln(getal:3,' = ','2^',m,'/3^',n,'=',twee,'/',drie); end; procedure proef; const max : integer = 39; var k : integer; begin for k := 1 to max do test(k) end; begin proef; end.