const N = 31; 
var A: array[1..N] of integer; 
    i, x, y: integer; 
    s: real; 
begin
  for i:=1 to N do Random(40) - 20; 
  
end.