Проверка

[faiter_on]

Помогите пожалуйста. Выполнить проверку исходных данных и результат на область допустимых значений. Т. е. когда вводишь не число а букву, то не должно писаться что в программе ошибка

var
  a,b,x:integer;
begin
  write('a,b= '); readln(a,b);
  if a>b then x:=a*b-3;
  if a=b then x:=2;
  if a<b then x:=a*a*a;
  writeln('x=',x);
end.

[Stilet]

А там и так должна выскакивать ошибка ввода. readln если не ошибаюсь умеет распознавать по типам.

[faiter_on]

Значит просто выполнит проверку исходных данных и результат на область допустимых значений

[Stilet]

И какова же область?

[faiter_on]

Область допустимых значений

[Stilet]

Спс, кэп, не догадался бы )
Значения то откуда берутся?
Постой, угадаю - оттуда.

[ViktorR]

Stilet

А там и так должна выскакивать ошибка ввода. readln если не ошибаюсь умеет распознавать по типам.

Распознавать то распознает, но формирует ошибку и прекращает работу программы.
Тут речь видимо о директивах компилятора.
Так например, если написать:
{$I-}

readln(a);
if IOResult = 0 then
   writeln('a = ', a)
else
begin
   writeln('Err! A must be type integer!');
...
end;
{$I+}
...

То можно вместо многоточий вставить команды, которые продолжат программу в нужном направлении. Программа не прервется.
Другое дело, какие значения для типа integer будут допустимы в данном коде.
И вообще, как обрабатывать ввод в самом общем случае.
Например, брать операции ввода на себя, проверяя нажатие клавиш и считывая введенный символ, типа: KeyPressed, ReadKey.
...
В том числе, директивы можно использовать и для контроля переполнения при арифметических операциях ( {$Q-}, {$Q+} ...



Как-то так, ...

[faiter_on]

Значения самому вводить

[faiter_on]

Пишет неизвестное имя ioresult