program tablica1;
uses crt;
var i,n :integer;
    tablica : array[1..10] of integer;

procedure wczytaj(var tab:array of integer; n:integer);
begin
  for i:=1 to 10 do
  begin
    write('Wprowadz wartosc elementu nr ', i, ': ');
    readln(tab[i]);
  end;
end;

procedure wyswietl(tab:array of integer; n:integer);
begin
  writeln('Zawartosc tablicy: ');
  for i:=1 to 10 do
    write(tab[i], ' ');
end;

begin
  clrscr;
  write('Ile elementow wpisac do tablicy? ');
  readln(n);
  wczytaj(tablica,n);
  wyswietl(tablica,n);
  readkey;
end.