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

uses crt;var a:array[1..4] of integer;     sum,i:integer;beginclrscr;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.