Program A1M;
var x,y,z,n:integer;
Begin
Repeat
x:=random(21)-10;
Print(x);
if x>0 then
y:=y+x;
until x=-2;
WriteLn('сумма: ', y);
end.
Объяснение:
