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