uses crt ;
    var a: array[1..100] of integer ;
       i, dc, dl, da, dd :byte ;
            begin
        clrscr ;
          for i := 1 to 10 do 
        begin
            write('nhap phan tu thu ',i,' :') ;
            readln(a[i]) ;
            if a[i] > 0 then dd := dd+ 1 ;
            if a[i] < 0 then da := da+ 1 ;
            if a[i] mod 2=0 
               then dc := dc +1 
                 else 
                   dl := dl +1 ;
        end ;
          writeln ;
              writeln('co',dd:3,' so duong trong day.') ;
              writeln('co',da:3,' so am trong day.') ;
              writeln('co',dl:3,' so le trong day.') ;
              writeln('co',dc:3,' so chan trong day') ;
        readln ;  
            end .

$lancelot-khoadang09$

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

writeln('Cac so chan la: ');

for i:=1 to n do

if i mod 2=0 then write(i:4);