Определить по году век - Turbo Pascal

Формулировка задачи:

Помогите летописцу быстро вычислить век(столетие)по году.С клавиатуры вводится У-некоторый год.Определите по нему число С-номер его столетия(необходимо учесть,что к примеру,началом ХХ столетия был 1901 год а не 1900й)

Решение задачи: «Определить по году век»

textual
                            Листинг программы 
                        

                            Program vek;
var y:integer;
Begin
write('Введите год: '); readln(y);
case y of
0..100 : writeln('I век');
101..200 : writeln('II век');
201..300 : writeln('III век');
301..400 : writeln('IV век');
401..500 : writeln('V век');
501..600 : writeln('VI век');
601..700 : writeln('VII век');
701..800 : writeln('VIII век');
801..900 : writeln('IX век');
901..1000 : writeln('X век');
1001..1100 : writeln('XI век');
1101..1200 : writeln('XII век');
1201..1300 : writeln('XIII век');
1301..1400 : writeln('XIV век');
1401..1500 : writeln('XV век');
1501..1600 : writeln('XVI век');
1601..1700 : writeln('XVII век');
1701..1800 : writeln('XVIII век');
1801..1900 : writeln('XIX век');
1901..2000 : writeln('XX век');
2001..2012 : writeln('XXI век');
else writeln('Такой год ещё не наступил');
readln;
End.
                        