Na ná là thế này thì phải:
code pascal:

program tong;
uses crt;
var a:array[1..100] of integer;
    i,n,t:integer;
    dem:byte;
begin
     clrscr;
     repeat
           writeln('Nhap so phan tu n');
           readln(n);
     until (n>0) and (n<251);
     for i:=1 to n do
         begin
              write('a[',i,'] = ');
              readln(a[i]);
         end;
     t:=0;
     dem:=0;
     for i:=1 to n do
         if a[i]>0 then
            t:=t + a[i];
     writeln('Tong cac so nguyen duong la: ',t);
     for i:=1 to n do
         if a[i] mod 2 =0 then dem:=dem+1;
     if dem=0 then
        writeln('Khong co so le trong day so')
     else
         begin
              writeln('Cac so chan trong day la');
         for i:=1 to n do
             if a[i] mod 2 = 0 then write(a[i]:4);
         end;
readln;
end.