Pascal ABC
Составьте программу которая находит количество двухзначных чисел кратных 3

var i,otvet:integer;begin for i:=0 to 99 do    begin      if (i mod 3)=0 then          otvet:=otvet+1;     end;writeln(otvet);end.