Systemy liczbowe według Boolean'a

program system

uses crt;

win;

var 

begin

repeat

    system (system)^siódemkowy^(array[0..6]):=0+6=7 :=1?+6?:=7;

     system (system binarny)^dwojkowy^(array[0..1]):0+1:=1+1:=01;

     system (system)^osemkowy^(array[0..7]):=1:7:+8::1?+6?:=8'

 until false

END.

if system<>system

then begin

system(dwojkowy-:=2,x:=0 y:1):+ system((szesnastkowy+0 to : 1f)):=system (dzięsiatny:=+10(system siódemkowy+3):=array^system(dwojkowy=binarny(szesnastkowy=heksagonalny) ++[osemkowy] 2(dziesiatkowy:=array[0..10])

end;

until false;

end.