Viết chương trình A=1+2+3+…+9+10 bằng while…do

uses crt;

var i,a:longint;

begin

clrscr;

i:=1;a:=0;

while i<=10 do 

  begin

     a:=a+i;

      i:=i+1;

   end;

write(a);

readln

end.