Viết công thức nhập vào n số nguyên a. Tính tổng các số vừa nhập b. Tính tổng các số lớn hơn 10

uses crt;
var i,n,s,s10:longint; a:array[1..10000]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]);
         inc(s,a[i]);
         if a[i]>10 then inc(s10,a[i]);
      end;
   writeln('a) Tong cac so vua nhap: ',s);
   writeln('b) Tong cac so lon hon 10: ',s10);
readln
end.

uses crt;
var a:array[1..1000]of longint;i,n,s,s10:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  s10:=0;
  for i:=1 to n do
        begin
         write('nhap a[',i,']=');readln(a[i]);
         s:=s+a[i];
         if(a[i]>10)then s10:=s10+a[i];
        end;
  write('tong cac so vua nhap la:',s);
  writeln;
  write('tong cac so lon hon 10 la:',s10);
 readln;
end.