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

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