15. Определите
результат выполнения программы:


var
i, sum: integer;


begin

 

sum:= 0;


  i:= 1;

 
while i<=3 do


     begin
sum:=sum+i;

  
   i:=i+1;

   
 end;


writeln (sum);


end.


 

A) 1;                 

B) 7;               

C) 9;                           

D) 6.