Ограничение числа

[Rebelition]

Вопщем кусок из задачи "Вводятся три целых числа a, b, c (1 ≤ a, b, c ≤ 10000)"
Как это можно грамотно организовать. Кодами IF else очень сложно

[Serge_Bliznykov]

как обычно, данную задачу можно решить разными способами.
самый простой - давать вводить любое число, если ввели за пределами - выдавать сообщение и заставлять вводить повторно.
это можно сделать, например, так:

function GetLimitedNumber(message : string ) : integer;
var k : integer;
begin
  repeat
    Write(message);
    Readln(k);
    if not ((k>=1) and (k<=10000)) then
       Writeln('Ошибка! Вы ввели неверное число. Допустимо от 1 до 10000.');
  until (k>=1) and (k<=10000);
end;

var a,b,c : integer;
begin
  Writeln;
  a := GetLimitedNumber('Введите A (1..10000):');
  b := GetLimitedNumber('Введите B (1..10000):');
  c := GetLimitedNumber('Введите C (1..10000):');
end.

второй способ немного гибче, но НАМНОГО сложнее: перехватывать все нажимаемые клавиши и обрабатывать их. После нажатия каждой проверять, что за число будет, если принять данную клавишу и дальше либо отдавать введённую цифру в число, либо игнорировать (можно при этом издавать звуковой сингал, типа писка)...

Если очень нужно и интересно и не найдете примеров второго варианта на форуме (мне кажется, что я уже писал такой пример), тогда пишите, разберёмся вместе.
Но я рекомендую Вам ограничиться первым вариантом...