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

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.