pascalabcnet/TestSuite/CompilationSamples/Try1.pas

// Простейшая обработка исключений. Ввод с ошибкой
var a: integer;

begin
  try 
    writeln('Введите число: ');
    // При вводе попробуйте совершить ошибку :)
    readln(a);
    writeln('Число введено верно ');
  except
    writeln('Ошибка ввода');
  end;
  writeln('Выполнение программы продолжено');
end.