Написать программу: Дан номер некоторого года (целое положительное число>1000). Определить соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год

program century;

var n, c: integer; / /n - номер года, с - столетие

begin

writeln ('Введите год (число больше тысячи');

readln (n);

c : = n div 100; / /число целых столетий

if (n mod 100) >0 then c : = c + 1;

//если число лет больше числа целых столетий,

//то это будет уже следующее столетие - добавляем единицу.

writeln (c, '-е столетие')

end.