помогите решить задачи...

помогите решить задачи по Информатике в циклах:1.Вводятся 15 чисел, сколько из них удовлетворяет условиям: четное и кратно 72.Вводятся 10чисел, найти их сумму

 

1.
program df;
var
   a:array[1..100] of integer;
   i,s:integer;
begin
   read(n);
   s:=0;
   for i:=1 to 15 do
      if (a mod 2=0)and(a div 7=0) then s:=s+1;
   writeln(s);
end.
2.
program df;
var
   a:array[1..100] of integer;
   i,s:integer;
begin
   read(n);
   s:=0;
   for i:=1 to 10 do
      s:=s+a;
   writeln(s);
end.