program arrayInputAndOutput;

var
arr: array[1..10] of integer;
i: integer;

begin
for i := 1 to 10 do
begin
write('Enter element ', i, ': ');
readln(arr[i]);
end;

write('Array elements: ');
for i := 1 to 10 do
write(arr[i], ' ');

readln;
end.