Var
A:longint;
Begin
WriteLn('Введите пятизначное число');
ReadLn(A);
Write('Произведение нечётных цифр = ',(A div 10000)*((A div 100) mod 10)*(A mod 10))
End.
Var n,x:integer;
begin
read(n);
if n mod 3 = 0 then
begin
n := n div 3;
for x := 1 to n do
if n mod x = 0 then
write(3*x,' ')
end
else
write('Not found')
end.
Var i: Integer, sum: Integer;
Begin
for i := 13 to 99 do
if (mod(i, 13) = 0)
sum := sum + i;
write( sum );
end.