Исправление bormant, (текущая версия) :
Проверку правильности написания чисел можно поручить рантайму:
{$I-}
repeat
Write('a b: '); Read(a,b);
if IOResult=0 then Break
else WriteLn('Wrong number. Please, repeat.')
until False;
Исходная версия bormant, :
Правильность написания чисел можно поручить рантайму:
{$I-}
repeat
Write('a b: '); Read(a,b);
if IOResult=0 then Break
else WriteLn('Wrong number. Please, repeat.')
until False;