var n:integer;
begin
for n:=10000 to 99999 do
if (n mod 15 = 13) and (n mod 13 = 9) then writeln(n);
end.
Объяснение:
