Код блока для проверки правильного ввода чисел.
(ОДНОГРУПНИКИ для вас:))
Code
var x,err:integer; {--тип переменной "x" по выбору! ----}
s:string;
{----------------------------------------------------------}
read (s);
val(s,x,err);
if err>0 then
write ('Error') else
{-------------BODY PROGRAM----------------}
Еще знаю способ через IOResult. Будет позже....
