Дано двузначное число. Найти произведение его чисел программа

program zz1;

var a, b, p, s:integer; // задаем переменные целого типа

begin

write(' введите двузначное число '); // вводим с клавиатуры двузначное число

read(a);

b:= a mod 10; // находим вторую цифру двузначного заданного числа

p:= a div 10; // находим первую цифру двузначного заданного числа

s:= b * p; // вычисляем произведение первой и второй цифр двузначного заданного числа

write(' произведение цифр двузначного заданного числа = ', s); // выводим ответ

end.