uses crt;
const n=5; {n-1}
var a,b, x: array [1..n] of integer;
var i,j: integer;

procedure fullmas (var x: array of integer); {procedure for create mas}
begin
writeln('x[i]');
for i:=1 to n do
begin
write('Enter ',i,' Element : '); readln(x[i]);
end;
end;

procedure printf (x: array of integer); {procedure for print mas to display}
begin
writeln('x[i]');
for i:=1 to n do
begin
writeln(i,'Element : ',x[i]);
end;
end;

begin
clrscr;

fullmas(a); {create mas with procedure}
printf (a); {print mas to dislay with procedure}

fullmas(b); {create mas with procedure}
printf (b); {print mas to dislay with procedure}

readkey;
end.