Дано трехзначное число, найти произведение его цифр.

p:=(a div 10)*(a div 10 mod 10)*(a mod 10);

Program sd;
uses crt;
var
s,y,z,x,r: integer;
Begin
clrscr;
Writeln('Введите  трехзначное число:');
readln(x);
s:=x div 100;
r:=x mod 100 div 10;
y:=x mod 10;
z:=y*r*s;
writeln('произведение чисел = ',z);
readln;
End.

program trete;
uses crt;
var x,a,s,r,y,v:integer;
begin
write('Введите число=');
readln(x);
a:=x div 1000;
s:=x div 100 mod 10;
r:=x mod 100 div 10;
y:=x mod 10;
if (a=s)and(r=y)
or (a=s) and(s=r)
or (a=s) and (s=y)
or (s=r) and (s=y)
or (y=r)and (r=a)
then writeln('число содержит три одинаковый цифры')
else writeln('нет трех одинаковых цифр');
readln
end.

readln(n);
if (n>=0) and (n<=27) then
for i:=100 to 999 do
if i mod 10 + i div 100 + i div 10 mod 10 = n then write(i)
else writeln('значение n не удовлетворяет условию');

sum:=2*sqrt(sqr(h1)+sqr((b1-a1)/2))+a1+b1+2*sqrt(sqr(h2)+sqr((b2-a2)/2))+a2+b2;

Program sd;
uses crt;
var
s,y,z,x,r: integer;
Begin
clrscr;
Writeln('Введите  трехзначное число:');
readln(x);
s:=x div 100;
r:=x mod 100 div 10;
y:=x mod 10;
z:=y*r*s;
writeln('произведение чисел = ',z);
readln;
End.