18 lines
272 B
ObjectPascal
18 lines
272 B
ObjectPascal
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.
|