11 lines
154 B
ObjectPascal
11 lines
154 B
ObjectPascal
begin
|
|
try
|
|
writeln(1);
|
|
raise new Exception('xxx');
|
|
except
|
|
on e:Exception do
|
|
writeln('Исключение: ',e);
|
|
end;
|
|
readln;
|
|
end.
|