Viết chương trình tính tổng các phần tử chia hết cho 2 từ dãy N số nguyên nhập từ bàn phím
program Vd;
uses wincrt;
begin
writeln ('nhap N'); 
readln( N); 
S:=0 
for i:= 1 to N do 
if i mod 2:= 0 then 
S:= S+ i; 
writeln (....) 
readln; 
end.