12 lines
176 B
ObjectPascal
12 lines
176 B
ObjectPascal
begin
|
|
try
|
|
writeln(1);
|
|
raise new Exception('xxx');
|
|
except
|
|
//on e:exception do
|
|
//writeln('Èñêëþ÷åíèå: ',e);
|
|
writeln('Èñêëþ÷åíèå!');
|
|
end;
|
|
readln;
|
|
end.
|