Дан номер некоторого года (положительное целое число). Вывести соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год — Pascal(Паскаль)

program n3;
 var t,year:integer;
  begin
   write('Vvedite god = ');
   readln(year);
   t:=(year-1) div 100;
   writeln(t+1);
   readln;
  end.

var
c,y:integer;
begin
  writeln('Введите год');
  readln(y);
  c:=y div 100;
    if (y mod 100 <> 0) then
      c:=c+1;
  writeln('Год ',y,'- столетие ',c);
end.

uses crt;
var a : integer;
s : real;
begin
clrscr;
write('a = ');
readln(a);
if ( a mod 100 = 0 ) then
s := a / 100
else
s := a / 100 + 1;
TextColor(10);
writeln('Столетие : ',Trunc(s));
readln;
end.