[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

var
  c: PChar;

  procedure FreeMyMemory(c: PChar);
  begin
    FreeMemory(c);
  end;

begin
  c:=GetMemory(1);
  c^:='@';
  Writeln(c^);
  FreeMyMemory(c);
  Readln;
end.