uses
crt;
const
max=100;
type
Bilangan = array[1..max] of integer;

procedure inputArray(A:Bilangan;N:integer);
var
i:integer;

begin
writeln('Masukan bilangan : ');
for i:=1 to N do
write('Masukan nilai A[',i,'] = '); readln(A[i]);


end;

procedure outputArray(A:Bilangan;N:integer);
var
i:integer;
begin
writeln('Nilai yang dimasukan : ');
for i:=1 to N do
write('A[',i,'] = ',A[i]);

end;

var
Arr:Bilangan;
count:integer;

begin
clrscr;
write('Masukan jumlah nilai yang akan dimasukan : '); readln(count);
inputArray(Arr,count);
writeln;
outputArray(Arr,count);
readln;

end.