Для кодирования букв А, Н, Р, Е, Т, С, И, Ц
Для кодирования букв А, Н, Р, Е, Т, С, И, Ц решили использовать двоичное представление чисел 0, 1, 2, 3, 4, 5, 6 и 7 соответственно (с сохранением двух или одного незначащих нулей в случае одноразрядного или двухразрядного представления соответственно). Если закодировать последовательность букв ЦИСТЕРНА таким и результат записать шестнадцатеричным кодом, то получится
var j, a, b, n: integer;
label 1;
begin
1: randomize;
a: = random (9);
b: = random (9);
write (a, '*', b, '=');
read (n);
if n = (a * b) then writeln ('відповідь вірний! ')
else writeln ('відповідь неправильний! ');
writeln ('продовжуватимеш? ');
writeln ('якщо так то натисни 1');
writeln ('якщо немає то натисни 2');
read (j);
if j = 1 then goto 1;
if j = 2 then writeln ('до побачення! ');
end.
начебто так, точно не пам'ятаю.