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