program mdd; uses crt; var i:longint; begin clrscr; for i:= 10 to 99 do begin if i mod 13 = 0 then writeln(i); end; readkey; end.