program Wskaznik_do_tablicy;
uses crt;

{tworzenie nowego typu zmiennej o nazwie tablica_wskaznik}
type
  tablica_wskaznik=array[1..5] of integer;
{deklaracja zmiennej itypu integer  oraz tab typu tablica_wskaznik}
var
  i:integer;
  tab:^tablica_wskaznik;

begin
{dynamiczne przydzielenie pamieci dla zmiennej tab}
  new(tab);
{wczytanie danych do tablicy}
  writeln('Wczytaj dane do tablicy:');
  for i:=1 to 5 do
    begin
    readln(tab^[i]);
  end;
  writeln;
{wypisanie danych z tablicy}
  writeln('Liczby z tablicy to = ');
  for i:=1 to 5 do
    write(tab^[i],' ');
  readln;
{zwolnienie pamieci dla zmiennej tab}
  dispose(tab);
end.