Дан фрагмент электронной таблицы. A B C
1 99 = 99/C2
2 2 = A1+A2 = 99*A1

Определи значение, записанное в ячейке B1, если оно скопировано с ячейки A1.

Введем обозначения: А - первая буква согласная, В - третья буква гласная. Перепишем условие согласно принятым нами обозначениям и учитывая, что оно должно быть истинным: 
НЕ А И НЕ В = 1.
Логическое произведение двух переменных истинно только в случае истинности каждой переменной. Таким образом, решение задачи распадается на решение двух  равенств:
НЕ А = 1. Это значит, что А = 0, т.е. первая буква имени должна быть гласной. Это имена под номерами 1) и 4).
НЕ В = 1. Это означает, что В = 0, т.е, третья буква имени должна быть согласной. Это условие выполняется только в имени Анна под номером.
ответ: 4.

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.

начебто так, точно не пам'ятаю.