Составьте программу, которая выводит на экран пример на умножение двух целых чисел, запрашивает ответ пользователя, проверяет его и выводит соответствующее сообщение: "правильно! " либо "вы ошиблись", а также правильный результат.

Var       a, b: integer; begin       a : = random(10);       b : = random(10);       write(a, ' * ', b, ' = ');       a : = a * b;       readln(b);             if a = b then writeln('правильно')       else writeln('не верно. правильный ответ ', a); end.

можно назвать - собака 

или 

агент @ мail.ru 

 

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку