begin
var a := ArrRandom(20, -10, 10);
var s := OpenWrite('dan3.txt');
s.Write(a);
s.Close();
end.
Объяснение:
