дано двузначное число. Найти творение его чисел программка

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