Zamiana z dowolnego na dowolny system liczbowyStartStartEndinput=stringToArray(ReadM("Wprowadź liczbę:"));; from=ReadNumber("Z systemu: ");Readln(input);; Read(from);dec>0dec=dec div todec:=dec/to;out=String.fromCharCode(tab[dec%to])+out;out:=tab[dec mod to]+out;Print(out);Writeln(out);tab=stringToArray("0123456789abcdefghijklmnoprstuwxyz");tab:="0123456789abcdefghijklmnoprstuwxyz"to=ReadNumber("Do systemu:");Read(to);out="";out:="";dec=0;; i=0dec:=0;; i:=0i<input.lengthdec*=from;; j=0;dec:=dec*from;; j:=0;tab[j]!=input[i]j++j:=j+1;dec+=j;; i++;dec:=dec+j;; i:=i+1;Konwertowanie ciągu znaków; na liczbę dziesiętnąvar tab; var from; var to; var dec; var input; var i; var outtablica z wartościami; w systemach większych ; niż dziesiętnyTworzenie ciągu znaków z systemem docelowymdec przechowuje wartość; dziesiętną podanej liczby,; którą najpierw trzeba obliczyćszukanie w tablicy ; wartości danego znaku