Viết phương trình lập số nguyên dương N. a, tính trung bình cộng của các số từ 1 đến N b, đến số lượng số chẵn và số lượng số lẻ trong khỏang từ 1 đến N

uses crt;
var tbc:real;
    n,i,d1,d2,tong1,tong2:longint;
begin
clrscr;
write('Nhap  n=');readln(n);
d1:=0; d2:=0; tong1:=0; tong2:=0;
for i:=1 to n do
  begin
  if i mod 2=0 then
    begin
    d1:=d1+1;
    tong1:=tong1+i;
    end;
  if i mod 2<>0 then
    begin
    d2:=d2+1;
    tong2:=tong2+i;
    end;
  end;
tbc:=(tong1+tong2)/n;
writeln('a=',tbc:0:2);
writeln('b');
writeln('chan=',d1);
writeln('le=',d2);
readln;
end.

uses crt;
var n,i,c,t:longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         inc(t,i);
         if i mod 2=0 then inc(c);
      end;
   writeln('TBC: ',t/n:0:2);
   writeln('So luong so chan: ',c);
   writeln('So luong so le: ',n-c);
readln
end.