const 
  n = 10;
type
  tomb_tipus = array [1..n] of integer;
var
  tombom : tomb_tipus; 
  i : integer;
begin
  for i := 1 to n do
    read(tombom[i]);
  tombom[2] := 3;  
end;