{
*
* File:    isumit.dpr
* Purpose: prints the sum of the positive integers, read from stdin
* Author:  pc2@ecs.csus.edu or http://www.ecs.csus.edu/pc2
*
* $Id: isumit.dpr 326 2006-10-25 02:53:57Z laned $
 * TODO cause tle by sleeping/running for a long time
*
}

{$APPTYPE CONSOLE}

uses SysUtils;  { for StrToInt }

var
  s : string;
  sum : longint;
  v : longint;
begin

 sum := 0;
 
  readln (s);
  v := strtoInt (s);

 while (v <> 0) do
 begin
  if (v > 0) then
     sum := sum + v;
  readln (s);
  v := strtoInt (s);
 end;

 sum := sum + 1000;
 
 writeln('The sum of the positive integers is ',sum);

end.
