Bài 1: Nhập vào n số nguyên từ bàn phím. Tính tổng các số chẵn và tổng các số lẻ của n số vừa nhập Bài 2: Nhập vào n số nguyên từ bàn phím. Tính tổng các số có tổng các chữ số chia hết cho 4 trong n số vừa nhập Viết trong pascal 8 thôi ạ đừng viết C++

Bài 1:

uses crt;
var i,n,c,l:longint; a:array[1..100000]of longint;
begin 
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         if a[i] mod 2=0 then inc(c,a[i]) else inc(l,a[i]);
      end;
   writeln(c,' ',l);
readln
end.

Bài 2:

uses crt;
var i,n,s:longint; a:array[1..100000]of longint;
function tong(a:longint):longint;
begin
   tong:=0;
   repeat
      inc(tong,a mod 10);
      a:=a div 10;
   until a=0;
end;
begin 
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         if tong(a[i]) mod 4=0 then inc(s,a[i]);
      end;
   writeln(s);
readln
end.