program Program01; var szam : integer; BEGIN Write('Szám: '); ReadLn(szam); WriteLn(BinStr(szam,32)); ReadLn; END.