Program p1;
var
y:integer;
begin
write('Введите год, год = ');
readln(y);
Writeln('Век = ',y div 100);
end.

var
a:integer;
begin
readln (a);
if a mod 100=0
then writeln (a div 100)
else writeln ((a div 100)+1, ' век')
end.

поясню. к примеру, 2000 год - это еще 20 век, а не 21