Среди чисел a, b, c определить количество чисел кратных 3. , , написать программу для turbo pascal или просто алгоритм.

Var a,b,c,k,i:integer;
begin
k:=0;
read(a,b,c);
if a mod 3 = 0 then k:=k+1;
if b mod 3 = 0 then k:=k+1;
if c mod 3 = 0 then k:=k+1;
writeln(k);
end.