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.

Answer 2

А здесь нету for ?

Answer 3

Извини не увидел!