program NT;
var i, s, n:integer;
begin
writeln('vvedi n');
readln(n);
s:=0;
for i:=1 to n do begin x:=-10+random(200); s:=s+x; end;
writeln('s=',s);
end.
program NT;
var i, s, n:integer;
begin
writeln('vvedi n');
readln(n);
s:=0;
for i:=1 to n do begin x:=-10+random(200); s:=s+x; end;
writeln('s=',s);
end.