Program array2; Var A: array[1..10] of integer; i: integer; Begin for i:= 1 to 5 do readln(A[i]); for i:= 1 to 5 do A[i] := A[i] + 10; for i:= 1 to 5 do writeln(A[i]) End.