Přece takto (nezapomeň, že to vlastně zjišťuješ od konce):
if cele mod 2 =1
then vysledek:='1'+vysledek
else vysledek:='0'+vysledek;
počítání toho i můžeš taky zrušit...
Přece takto (nezapomeň, že to vlastně zjišťuješ od konce):
if cele mod 2 =1
then vysledek:='1'+vysledek
else vysledek:='0'+vysledek;
počítání toho i můžeš taky zrušit...