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.