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

Var
A,p:integer;
begin
Write(Введиnе число:);
Readln(A);
p:= A mod 10;
while A > 9 do
A:=A div 10;
p:=p*A;
WriteLn(p);
Readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.