uses crt;
var a,i,n,s:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  for i:=1 to n do
        begin
         write('nhap so thu ',i,':');readln(a);
         if(a>5)then inc(s,a);
        end;
  write('s=',s);
 readln;
end.

program bt;

Var

      A:array[1..1000] of longint;

      N,i,S:longint;

Begin

       write('Nhap N: '); readln(n);

       for i:=1 to n do readln(A[i]);

       S:=0;

       For i:=1 to n do if A[i]>5 then S:=S+A[i];

       write('Tong la: ',S);

      Readln;

End.

                 *******

Program bt;

Var

    n,i,s,so:longint;

begin

    write('Nhap N: '); readln(n);

     S:=0;

     for i:=1 to n do

      Begin

           readln(so);

           if so>5 then S:=S+so;

     End;

     write('Tong la: ',S);

      Readln;

End.