program tomb_elso; const n = 10; type tomb_tipus = array [1..n] of integer; var tombom : tomb_tipus; i : integer; //const tomb: tomb_tipus = (2, 5, 6, 7, 4, 6, 1, 2, 5, 9); begin for i := 1 to n do readln(tombom[i]); tombom[2] := 3; for i := 1 to n-1 do write(tombom[i],', '); write(tombom[n],'.'); readln; end.