Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program project1;
- uses SysUtils;
- var i, params, ends : Integer;
- tmp : String;
- begin
- params := ParamCount();
- ends := 0;
- for i := 1 to params do
- begin
- ends += StrToInt(ParamStr(i));
- end;
- WriteLn(IntToStr(ends));
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement