Program TauscheArray;

VAR	i, h:integer;
	Zahlen:Array[1..100] OF Integer;

BEGIN
	for i:=1 to 100 do
		Zahlen[i]:= i;
	for i:=1 to 50 do begin
		h:=zahlen[i];
		zahlen[i]:=zahlen[101-i];
		zahlen[101-i]:=h;
	end;	
	for i:=1 to 100 do
		WriteLn(Zahlen[i]);
END.