Составить программу, определяющую количество чисел, делящихся без остатка на три

[phoenixSV]

В компьютер вводится N трехзначных вещественных чисел. Составить программу, определяющую количество чисел, делящихся без остатка на три.

[SuperVisor]

Офф: Будь пост чуть пораньше - удалил бы к бабушке. ИМХО матчасть.
По теме:

for i:=0 to n do
  if (a mod 3)=0 then inc(b)

Если знания есть - разберетесь. Если есть энтузиасты - помогут.
Азы упускать не стоит, до них нужно доходить самому.

[Викдон]

var chislo:real;
      i,n,a:integer;
begin
write('Введите n');
readln(n);

 for i:=1 to n do
   begin
     write('Введите число: ');
     readln(chislo);
       if (chislo mod 3) =0 then
         inc(a);
   end;
write('Итого чисел- ',a);
readln;
end.