code

program Project2;
var
count:integer;
num:integer;
total:integer;
ptotal:integer;
ntotal:integer;
begin
for count := 0 to 9 do begin
readln(num);
IF ((num > 0) AND (num <= 100)) THEN begin
total := total + num;
ptotal := ptotal + num;
end;
IF ((num => -100) AND (num < 0)) THEN begin
total := total + num;
ntotal := ntotal + num;
end;
end;
end.