[NumLock]

что-то не могу минимальный проект реализовать
"сторонняя программа" вызывает ошибку:

Код:

program ProjCons;

{$APPTYPE CONSOLE}

var
  a, b, c: Integer;

begin
  Readln;
  a:=0;
  b:=0;
  try
    c:=a div b;
  except
    c:=0;
  end;
  Writeln(c);
  Readln;
end.

но GetDosOutput возвращает текст "Runtime error 6 at 00403A52"

ну да ладно с этим...

а вот GetExitCodeProcess как раз возвращает 6