pascalabcnet/TestSuite/formatter_tests/input/Try3.pas

// Иллюстрация finally
// Секция finally выполняется независимо от того, произошло исключение или нет
var x: integer := 0;

begin
try 
if Random(2)=0 then
x := 10 div x;
writeln('Выполнение продолжается');   
finally
writeln('Сработала секция finally'); 
end;
// Если возникает исключение, то этот оператор не выполняется
writeln('После секции finally'); 
end.