Написать программу при которой с клавиатуры вводится натуральное число n не при восходящее 1000 и выводится произведение цифр этого числа

Паскалевский вариант от меня. Program Programma; Uses crt; var n, p: integer; BEGIN clrscr;       write('n = ');       readln(n);       writeln;            if (n > 0) and (n <=100) then            begin            p:=sqr(n);            write('Ответ: p = ', p);            end            else            write('Число ненатуральное или превосходит 1000');       readln; END.