дан массив содержащий 70 положительных целях чисел необходимо отыскать сумму чисел

var

 a:array[1..N] of integer;

 i,x:integer;

begin

 for i:=1 to N do

 begin

   readln(a[i]);

   if (a[i]gt;=49) and ((a[i] mod 7)=0)

     then x += a[i];

 end;

 for i:=1 to N do

 begin

   if (a[i]gt;=49) and ((a[i] mod 7)=0)

     then a[i]:=x;

   writeln(a[i]);

 end;

end.