{$APPTYPE CONSOLE}
const
code_ret = $C3;
type
proc = procedure;
var
c: array of byte;
begin
SetLength(c, 1);
c[0] := code_ret;
proc( c );
WriteLn('ok');
ReadLn;
end.
{$APPTYPE CONSOLE}
const
code_ret = $C3;
type
proc = procedure;
var
c: array of byte;
begin
SetLength(c, 1);
c[0] := code_ret;
proc( c );
WriteLn('ok');
ReadLn;
end.