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