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

Если это паскаль

диапазон вводится с клавиатуры

program pr1;

var a, b, x:integer; p:longint;

begin

writeLn ('введите диапазон') ; read (a, b) ;

x:=a;

while (x div 10) = 0 do

inc (x) ;

p:=x;

inc (x) ;

while x<=b do

begin

p:=p*x;

inc (x) ;

end;

writeLn ('p=', p) ;

end.