Дан массив из n элементов, нужно прочитать и вывести значения массива.

Пример

input.txt	output.txt
3 1 1 2	1 1 2
4 2 3 2 3	2 3 2 3

Type

MyArray=Array[1..10] of integer;

var n, k, i: integer;

A: MyArray;

begin

assign(input,'input.txt'); reset(input);

assign(output,'output.txt'); rewrite(output);

readln (n);

for i:=1 to n do

read(A[i]);

for i:=1 to n do

write (A[i]);

close(input);

close(output);

end.