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.