Question

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

Answer 1

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