По номеру года определите его столетие

var
  Y, c: word;
 
begin
     ///ВВОД И ПРОВЕРКА ПРАВИЛЬНОСТИ ВВЕДЕННЫХ ДАННЫХ
  try
    writeln('Введите номер года (целое положительное число):');
    write(' Y = ');  
    readln(Y);
  except
    writeln;
    writeln(' Ошибка! Вы ввели или слишком большое число,');
    writeln(' или вообще не целое положительное число.');
    writeln;
    write('Конец.');
    exit
  end;
     ///ОСНОВНАЯ ПРОГРАММА
  writeln;
 { Определяем номер столетия: }
  c := (Y - 1)div 100 + 1 ;
  writeln('Ответ:');
  writeln(' Номер столетия: ', c);
  writeln(' ')  
end.

try
    writeln('Введите номер года (целое положительное число):');
    write(' Y = ');  
    readln(Y);
  except
    writeln;
    writeln(' Ошибка! Вы ввели или слишком большое число,');
    writeln(' или вообще не целое положительное число.');
    writeln;
    write('Конец.');
    exit
  end;

var
  Y, c: word;
 
begin
  writeln('Введите номер года (целое положительное число):');
  write(' Y = ');  
  readln(Y);
  writeln;
 { Определяем номер столетия: }
  c := (Y - 1)div 100 + 1 ;
  writeln('Ответ:');
  writeln(' Номер столетия: ', c);
  writeln(' ')  
end.

var y, c: integer;
begin
repeat
  readln(y);
  until y>0;
  c := (y - 1)div 100 + 1 ;
  writeln(c);
end.