Склавиатуры вводится число до 1000. определить какой сотне принадлежит число. определить чётная или нечётная сумма цифр

Var x, a, b, c, s: integer;
begin 
  write('Введите число: '); readln(x);
  a := x div 100;
  b := (x div 10) mod 10;
  c := x mod 10;

  s := a + b + c;
  writeln('Число принадлежит ', a, ' сотне');

  if(s mod 2 = 0) then writeln('Сумма цифр четная')
  else writeln('Сумма цифр нечетная');
end.

a - сотни
b - десятки
с - единицы

Надеюсь я правильно тебя понял.