Берём двузначное число. Делим его на 10 и забираем остаток. Остаток присваиваем новой переменной. Старую переменную с числом мы умножаем на новую. Всё.
В Pascal это выглядит так:
Var a,b:integer;
Begin
readln(a);
b:=a mod 10;
a:= a div 10;
a:=a*b;
writeln(a);
End.