ПАСКАЛЬ, СОСТАВИТЬ ПРОГРАММУ
Числа задаются случайно в диапазоне от [-10,10] и выводятся на экран. Находится сумма числе, пока число не станет равным 0.

var a,s:integer;beginRandomize;a:=random(21)-10;writeln(a);s:=0;while a<>0 do begin s:=s+a; a:=random(21)-10; writeln(a);   end;write('s = ',s);end.Пример:-66107-10-8-90s = -10