Ввод одномерного массива Х1,X2,...,Xn:
FOR i:=1 TO n DO read(X[i]);
FOR i:=1 TO n DO writeln(X[i]);
FOR i:=n TO 1 DO readln(X[i]);
FOR i:=n TO n DO writeln(X[i]);