n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/DS0005.pas

17 строк272 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

type MyException=class(Exception)
     constructor create;
     begin
       inherited Create('MyException');
     end;
     end;

begin
  try
    writeln(2);
    raise new MyException;
  except  
  on e:myexception do
    writeln('����������: ',e);
  end;
  readln;
end.