program dz;
uses crt;
var mac: array [1..10] of integer;
b,c: integer;
begin
For b:=1 to 10 do
mac[c]:= Randomize (-10-(10)+1)+(10);
If mac[c]<0 then
write (mac[c],', ');
end;
Writeln (mac);
end.
