program dz;

uses crt;

var mac: array [1..10] of integer;

b,c: integer;

begin

For b:=1 to 10 do

begin

mac[c]:= Randomize (-10-(10)+1)+(10);

If mac[c]<0 then

write (mac[c],', ');

end;

Writeln (mac);

end.