Ребят, пожалуйста, ПОМОГИТЕ!!!! Вообще без понятия, как выполнить задание! Прошу откликнетесь!!!
Нужно перевести таблицу умножения в двоичную систему!
Информатика 8 класс!!! Всем заранее спасибо!!!

var

i, n : byte;

begin

repeat

write('введите n: ');

readln(n)

until n in [1..9];

writeln('таблица умножения');

for i := 1 to 9 do

writeln(n, ' * ', i, ' = ', n * i);

writeln('таблица сложения');

for i := 1 to 9 do

writeln(n, ' + ', i, ' = ', n + i);

readln

end.