{$mode delphi}

procedure p();
begin
end;

begin
end.