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