Var x: array [1..10] of integer; procedure reachat(a: integer); var i: integer; begin for i: =1 to 10 do write (x[i],' '); end; var i,a: integer; begin read(a); for i: =1 to 10 do x[i]: =random(10); reachat(x[i]); writeln(a); end. надо изменить программу так, что бы при вводе 4 было 1 2 3 4, а при вводе 6 было 1 2 3 4 5 6