In trung bình cộng 100 số chẵn đầu tiên

program trungbinh;

uses crt;

var i,d:byte;

      t:longint;

begin

     clrscr;

     t:=0;  i:=0;  d:=0;

     while d<100 do

          begin

               i:=i+2;

               t:=t+i;

               d:=d+1;

          end;

     write(‘Trung binh cong 100 so chan dau tien la: ‘,t/d:2:2);

     readln;

end.