Дано целое двухзначное число. Используя операции div и mod, найти произведение его цифр. Для облегчения поиска решения

Вариант с проверкой вводимого числа:

program product;var n: integer;beginn:=100;writeln(\'Bведите двузначное целое число\');while (n>99) or (n<10) dobeginReadln(n);if (n<10) or (n>99) then writeln(\'Это не двузначное число. Введите двузначное\')end;Writeln(\'Произведене цифр введенного числа: \', (n mod 10) * (n div 10))end.

Программа без проверки вводимого числа:

program product;var n: integer;beginwriteln(\'Bведите двузначное целое число\');Readln(n);Writeln(\'Произведене цифр введенного числа: \', (n mod 10) * (n div 10))end.