var n,d,i:longint;

begin

read(n);                 (nhập n)                 

while (n<>0) do          (sử dụng lệnh while-do để đếm số số chẵn từ 1 đến n)

begin

 i:=n;

if i mod 2 =0 then d:=d+1;

n:=n-1;

end;

writeln('so cac so chan tu 1 den n la: ',d);                

readln

end.            

uses crt;

var N, i, d, s : integer;

begin

clrscr;

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

i := 1; d := 0; s := 0;

while i <= N do begin

if i mod 2 = 0 then begin

d := d + 1; s := s + i;

end; i := i + 1; end;

writeln('Tu 1 - N co ', d ,' so chan');

writeln('Tong cac so chan : ', s);

readln

end.