Сделайте программу в паскале abc! сли вводишь год рождения он выводит век

Program p1;vary:integer;beginwrite('Введите год, год = ');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