program ProizvedenieChisel;

var
number, digit, proizvedenie: integer;
strNumber: string;

begin
proizvedenie := 1;

writeln('Введите число:');
readln(number);

strNumber := IntToStr(number);

for digit := 1 to Length(strNumber) do
begin
if (StrToInt(strNumber[digit]) = 3) then
proizvedenie := proizvedenie * 3;
end;

writeln('Произведение цифр, равных трём, равно: ', proizvedenie);

end.