Создать программу для перевода чисел из десятичной в двоичную систему счисления. Паскаль

Имо, короче некуда:

function f (x:integer):string := x>0?f(x div 2)+(x mod 2).ToString:''; begin var x := ReadInteger; Write(f(x)); end.

Пример работы: