Программа:
Pascal:
var
arr: array[1..6] of integer;
s, i: integer;
begin
for i := 1 to 6 do begin
readln(arr[i]);
if arr[i] > 0 then s += arr[i];
end;
writeln(s);
end.
