определить количество трехзначных чисел ,кратных 3.(ПАСКАЛЬ)

var

 i, c: integer;

begin

 c := 0;

 for i := 100 to 999 do

   if i mod 3 = 0 then inc(c);

 Writeln(c, ' трехзначных чисел кратных 3.');

end.