Program z2 var array of integer var integer Begin for to do readln for

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.