Найти все двузначные числа, кратные 3.
Паскаль. Через repeat, until

var  a, i: integer;begina:=0;i:=10;repeatif ((i mod 3) = 0) thena:=a+1;i:=i+1;until i = 100;writeln(a);end.