10 lines
121 B
ObjectPascal
10 lines
121 B
ObjectPascal
begin
|
|
try
|
|
writeln(1);
|
|
raise new Exception('xxx');
|
|
except
|
|
writeln('Èñêëþ÷åíèå!');
|
|
end;
|
|
readln;
|
|
end.
|