Uses crt; var x:integer; begin for x:=10 to 99 do if x mod 13=0 then writeln(x); end.
А здесь нету for ?