// Введите не число
// Посмотрите, как выглядит ошибка при выполнении программы
begin
var i := ReadInteger;
end.