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

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

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

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

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