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

Var a,b1,b2,P:integer;
begin       
Writeln('Vvedite chislo');       
readln(a);       
b1:=a div 100;       
b2:=a mod 10;       
P:=b1*b2;       
writeln('Proizvedenie = ',P);
readln;
end.