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

Берём двузначное число. Делим его на 10 и забираем остаток. Остаток присваиваем новой переменной. Старую переменную с числом мы умножаем на новую. Всё.

В Pascal это выглядит так:

Var a, b:integer;

Begin

readln (a) ;

b:=a mod 10;

a: = a div 10;

a:=a*b;

writeln (a) ;

End.