Определить произведение первой и последней цифры числа,вводимого с клавиатуры

Ответы:

var

A,p:integer,

begin

Write(Введиnе число:),

Readln(A),

p:= A mod 10,

while A &gt, 9 do

A:=A div 10,

p:=p*A,

WriteLn(p),

Readln,

end.