Advertisement
Guest User

Untitled

a guest
Oct 20th, 2017
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. program project1;
  2.  
  3. uses SysUtils;
  4.  
  5. var i, params, ends : Integer;
  6. tmp : String;
  7.  
  8.  
  9. begin
  10. params := ParamCount();
  11. ends := 0;
  12.  
  13. for i := 1 to params do
  14. begin
  15. ends += StrToInt(ParamStr(i));
  16. end;
  17.  
  18. WriteLn(IntToStr(ends));
  19. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement