Program n1;
var sum,a: integer;
begin
sum:=0;
repeat
readln(a);
if a<0 then sum:=sum+a;
until (a=0);
writeln(sum);
end.
=498 вроде бы я не очень понимаю
вот ...................................
//прога на Pascal`e
var
i: integer;
begin
for i:=100 to 999 do
if (i mod 9) = 0 then write (i, '; ');
end.