Как извлечь квадратный корень из шара?

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.

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

1)
number = list(input())

if int(number[0])%2==0 and int(number[1])%2==0 and int(number[2])%2==0:

 print('Да')

else:

 print('Нет')
2)

number = list(input())

if((int(number[0])*int(number[1])*int(number[2])) % 2 == 0):

 print('Нет')

else:

 print('Да')

Объяснение:

1) Получаем вводимое число и разбиваем строку на массив.
Проверяем каждую цифру на чётность, в случае когда все они чётные - выводим "Да", а в других случаях "Нет".
2) Получаем вводимое число и разбиваем строку на массив.
Умножаем все цифры друг на друга и проверяем произведение на чётность, если оно чётное выводим "Нет", а в других случаях "Да"