Вообще без понятия, как выполнить нужно перевести таблицу умножения в двоичную систему! информатика 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.