c клавиатуры вводится трехзначное число подсчитать произведение цифр ДЕСЯТКОВ и ЕДИНИЦ


PASCALABC

Произведение единицы с числа 123 это 1*2*3

Хорошо

Уже правильно?

Да

Спасибо!!!!!!))))))))

//PascalABC.NET//Версия 3.3. сборка 1583 (25.11.2017)vara:integer;begin  read(a);  writeln('Произведение десятков: ',(a mod 10)*(a div 10 mod 10)*(a div 100)*1000);  writeln('Произведение единиц: ',(a mod 10)*(a div 10 mod 10)*(a div 100)); readln; readln;end.Пример:123Произведение десятков: 6000Произведение единиц: 6