Паскаль / do9 / iriepas201 / Irie Pascal / samples / add

program add(output);
(*
** This sample program adds up all the program arguments
** and prints out the sum
*)
var
sum, (* Stores the sum *)
i, (* Counts the program arguments *)
x, (* Stores the converted program arguments *)
err (* Indicates whether or not there was an error *)
: integer;
begin
sum := 0; (* initiaze the sum *)
for i := 1 to paramcount do
begin
val(paramstr(i), x, err); (* Convert program agument into an integer *)
if err <> 0 then
begin
writeln(paramstr(i), ' is not a valid integer');
halt
end;
sum := sum + x
end;
writeln('Sum is ', sum)
end.