Дано двузначное число. Отыскать произведение его чисел программка

program zz1;

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

begin

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

read(a);  

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

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

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

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

end.