Pascal Контроль ввода

[#Azamat]

В простых программах ошибки при вводе данных могут приводить к неожиданному результату в ее работе. Все зависит от того, как на эту ошибку прореагирует операционная система. Но мы можем проконтролировать появление ошибок сами, предупредив об этом операционную систему.

Program Err;
uses crt;
var i:integer; flag:boolean;
begin
{$I-}{отключаем контроль ошибок ввода вывода}
repeat
readln(i);{ввод значения}
if IoResult=0 then flag:=true {если нет ошибки, то выходим из цикла}
else 
begin
gotoxy(wherex,wherey-1);{перевод курсора на строку вверх}
delline; {удаляем строку}
end;
until flag;
{$I+}{включаем контроль ошибок ввода вывода} 
end.

Автор: Неизвестен