Program zadcha;
Var i,sum:Integer;
Begin
 For i:=300 to 500 do
  sum:=sum+i;
WriteLn(sum);
ReadLn;
End.