dùng A : array [1..100] of integer

làm sau màn hình hiện ra 

2 4 6 8 10                                                 {số chẵn}

2                                                               { tìm số chẵn có số nhỏ nhất}   

dùng while...do

Tính tổng S:=2+4+6+8....(số chẵn)

sau cho S > 2000

var i,s : integer ;