Program Pointer Tak Bertipe

program pointertaktipe;

uses crt;

var

 a : Pointer;

 b : ^Byte;

 c : array [0..100] of Byte;

 d : Byte;

 e : integer;

begin

  clrscr;

  writeln('+-----------------------------+');

  writeln('|   POINTER TAK BERTIPE       |');

  writeln('|-----------------------------|');

  writeln('| Input jumlah data  :        |');

  writeln('+-----------------------------+');

  gotoxy(24,4);readln(e);

  writeln;

  GetMem(a, 20);

  b := a;

  for d := 0 to e do

  begin

   c[d] := e - d;

   b^ := e - d;

   inc(b);

  end;

  b := a;

  for d := 0 to e do

  begin

   writeln('+------------|----------------+');

   writeln('|            |                |');

   writeln('|c[ ', d ,' ] = ', c[d], '  | a^ ke-', d ,' = ', b^,'    |');

   writeln('+------------|----------------+');

   inc(b);

  end;

  readln;

 end.

 2. Screenshot Program