[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

var
  x, y, z: Integer;

begin
  x:=0;
  y:=0;
  z:=0;
  try
    x:=y div z;
    Writeln(x);
  except
    Writeln('div by 0');
    Readln;
  end;
end.

почему блок except-end не срабатывает?)