История изменений

Исправление bormant, 26.03.22 18:10 (текущая версия) :

Проверку правильности написания чисел можно поручить рантайму:

{$I-}
repeat
  Write('a b: '); Read(a,b);
  if IOResult=0 then Break
  else WriteLn('Wrong number. Please, repeat.')
until False;

Исходная версия bormant, 26.03.22 18:09:

Правильность написания чисел можно поручить рантайму:

{$I-}
repeat
  Write('a b: '); Read(a,b);
  if IOResult=0 then Break
  else WriteLn('Wrong number. Please, repeat.')
until False;