{функция защищенного ввода переменной типа word 0..65535}
function OneScan(str:string):WORD;
var
  n:WORD ;
BEGIN
  writeln(str);
 {директива компилятора, отключающая проверку ввода/вывода}
  while(1=1) do
  BEGIN
	{ fflush(stdin);очистить стандартный поток ввода         }
     {I-}
	 read(n);
     {I+}
	 if(IOresult<>0) then {IOResult проверяет, был ли последний}

     begin             {вызов функции ввода/вывода удачным}
         writeln;
     writeln('     !!Ошибка ввода, попробуйте снова!!');
     end
	 else break;
  END;{while }

  OneScan:=n;
END;{OneScan}