Напишите программу вычисления произведения цифр двухзначного числа

Вопрос школьника по предмету Информатика

Напишите программу вычисления произведения цифр двухзначного числа

Ответ учителя по предмету Информатика

Program n1;

var a: integer;

begin

readln(a);

writeln((a mod 10)*(a div 10));

end.