Дано целое двухзначное число. Используя операции div и mod, найти произведение его цифр. Для облегчения поиска решения имейте в виду, что для двузначного числа первая цифра дается выражением d1:=x div 10; а вторая выражением d2:=x mod 10;

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

program product;

var n: integer;

begin

n:=100;

writeln ('Bведите двузначное целое число');

while (n>99) or (n<10) do

begin

Readln (n);

if (n<10) or (n>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.