Информатика, 8 класс. 4 задание, пожалуйста! Вопрос жизни и смерти! Если можете, то...

Var
n, m, n1, kc: integer;

begin
Write('Введите целое трехзначное число: ');
Readln(n);
n1 := abs(n); {Вдруг кто-то отрицательное число введет!}
if (n1 < 100) or (n1 > 999) then
    Writeln('Сам себе злобный буратино...')
else begin
    kc := 0;
    repeat
      m := n1 mod 10;
      n1 := n1 div 10;
      kc := kc + m
    until n1 = 0;
    Write('Сумма цифр числа ', n);
    if (kc mod 2 = 0) then Writeln(' - четное число')
    else Writeln(' - нечетное число')
end
end.

Тестовое решение:

Введите целое трехзначное число: 122
Сумма цифр числа 122 - нечетное число

Введите целое трехзначное число: 729
Сумма цифр числа 729 - четное число

Введите целое трехзначное число: -417
Сумма цифр числа -417 - четное число

Введите целое трехзначное число: 1320
Сам себе злобный буратино...