Program enot; 
 Var i,s: integer ;
 Begin 
 s:=0; 
  for i:= 1 to 100 do 
   s:=s+i;
Write('Ρσμμΰ = ',s);
 end.