薩爾和吉安娜坐在樹上
轉換程序用pascal編寫，程序如下:
{$n+}
使用高；
定義變量
x:longint；
s:字符串；
y:字節；
f:正文；
b:字節文件；
開始
賦值(f，'二進制。in’)；復位(f)；
賦值(b，' b . out ')；重寫(b)；
而不是eof(f)開始
讀(f，x)；
str(x:0，s)；
y:=trunc(convert10(s，2))；
寫(b，y)；
結束；
關閉(f)；
關閉(b)；
結束。