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