n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/TryFinally.pas

13 строк236 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ����������� finally - ����������� ���������� �� ����, ��������� ���������� ��� ���

begin
  try
    if Random(2)=1 then
      raise Exception.Create('��-��!');
  finally
    write(1);
    readln;
    exit;
    write(2);
  end;
end.