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

Ответы:

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.