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

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