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

Спасибо большое)

если это паскальдиапазон вводится с клавиатурыprogram pr1;var a,b,x:integer; p:longint;beginwriteLn('введите диапазон'); read(a,b);x:=a;while (x div 10)=0 doinc(x);p:=x;inc(x);while x<=b dobeginp:=p*x;inc(x);end;writeLn('p=',p);end.