Вводится трехзначное число,найти произведение первой и последней цифры числа.Сделать на Паскале

Предыдущий
вопрос Следующий
вопрос

Var a,b1,b2,P:integer;

begin

Write('Введите число: ');

readln(a);

b1:=a div 100;

b2:=a mod 10;

P:=b1*b2;

writeln('произведение первой и последней цифры числа = ',P);

readln;

end.