program sd;
var i : integer;
s : longint;
begin
s := 1;
i := 10;
repeat
if (i mod 13 = 0) and (i mod 2 <> 0) then
s := s * i;
i:= i+1;
until i>99;
writeln('proizvedenie = ',s);
end.
