Даны четыре целых числа.Определить сумму тех из них,которые кратны трём.Составить программу в паскале.Заранее спасибо!!!

Uses crt;
var a:array[1..4] of integer;
     sum,i:integer;
begin
clrscr;
writeln(Введите 4 целых числа:);
for i:=1 to 4 do
   begin
   read(a[i]);
   if a[i]mod 3=0 then sum:=sum+a[i];
   end;
writeln(Сумма чисел, кратных трем:  ,sum);
end.