Viết chương trình nhập từ bàn phím số nguyên dương n và dãy a gồm n số nguyên a1 a2 An a nhỏ hơn hoặc bằng 250 Hãy tính và đưa ra màn hình tích các số chẵn chia hết cho 7 có trong dãy a Giúp mk với.

program bai_giai;
uses crt;
var a:array[1..10000]of longint;s,i,n:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         while a[i]>250 do
                begin
                 write('nhap lai a[',i,']=');readln(a[i]);
                end;
         if(a[i]mod 2=0)and(a[i] mod 7=0)then s:=s+a[i];
        end;
  write(s);
 readln;
end.

print((lambda n,a:sum([int(i) for i in a if (i%2==0) and(i%7==0)]))(int(input()),list(map(int,input().split()))))