{$MODE DELPHI} // Enable Try/Except keywords

uses
   SysUtils; // Defines "exception" type

var
  number, zero : Integer;

begin
  // Try to divide an integer by zero - to raise an exception
  Try
    zero   := 0;
    number := 1 div zero;
    Writeln('number / zero = ',number);
  Except
    Writeln('Unknown error encountered');
  end;

  // Try to divide an integer by zero - to raise an exception
  Try
    zero   := 0;
    number := 1 div zero;
    Writeln('number / zero = ',number);
  Except
    on E : Exception do
      Writeln(E.ClassName,' error raised, with message : ',E.Message);
  end;
end.