Задача в Pascal abc.
Подсчитать количество двузначных чисел, которые кратны 3

Программу

12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 57, 60, 63, 66, 69, 72, 75, 78, 81, 84, 87, 90, 93, 96, 99. Итого 30.

const  start=12; //наименьшее подходящее число  max=100;  //первое число, идущее после всех двузначных  step=3;   //разность между подходящими числамиvar  x,i:integer;begin  x:=start;  i:=0;  while x<max do begin    i:=i+1;    x:=x+step;  end;  writeln('Количество искомых чисел: ',i);end.