Два довольно простых вопроса про контроль данных

[Max_Grinyuk]

Hacker19_90, мне в задании нужно ввести год рождения. Решил вот таким способом.......а вот про вычисления можно подробнее?

[Hacker19_90]

Ну а если по заданию, то

.....
repeat
    Writeln ('Введите год рождения');
    Readln (chislo);
until ((chislo >= 0) and (chislo < 2010));

[Serge_Bliznykov]

...год рождения...
chislo >= 0

LOL! Это для того, чтобы можно было ввести год рождения Христа и его современников?!
для практических целей можно смело использовать:

...chislo >= 1900...