code

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