1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
Program z2; var a:array of integer[1..5]; var i,c:integer; Begin for i:=1 to 5 do readln(a[i]); c := 5; for i:=1 to 5 do Begin a[i] := a[c] c := c-1; End; for i:=1 to 5 do writeln(a[i]); readln; End.