program Pointeri;
var
i: integer;
p: ^integer;
begin
p := @i;
end.
Пример за аритметички операции врз поинтер:
program Pointeri;
var
i: integer;
p: ^integer;
begin
i := 1;
p := @i;
p^ := 2;
p^ :=p^+2;
p^ :=p^*3;
writeln(i);
end.