VG
Size: a a a
VG
VG
АК
АК
VG
YM
АК
program Incs;
{$APPTYPE CONSOLE}
type MyIntPointer = ^Integer;
procedure Inc1(v: Integer);
begin
v := v+1;
end;
procedure Inc2(v: MyIntPointer);
begin
v^ := v^+1;
end;
procedure Inc3(var v: Integer);
begin
v := v+1;
end;
var w: Integer;
begin
w := 1;
Writeln(w); // 1
Inc1(w);
Writeln(w); // 1
Inc2(@w);
Writeln(w); // 2
Inc3(w);
Writeln(w); // 3
end.
АК
VG
АК
VG
АК
VG
АК
АК
VG
АК
АК
АК
АК