:вывести на экран все двузначные числа, кратные 13 ( решить: цикл с параметром (цикл для) for)

Uses crt;
var x:integer;
begin
     for x:=10 to 99 do
         if x mod 13=0 then writeln(x);
end.