Дано 3-х значное число N. Проверить, будет ли сумма его цифр

program zz1;

var s, n, k:integer; // задаем переменные целого типа

begin

write( введите трехзначное число );

read(n);  // вводим с клавиатуры число

s:= 0;

while n gt; 0 do  // организуем цикл, пока в числе есть числа

begin

k:= n mod 10;  // получаем последнюю цифру

s:= s + k; // добавляем ее к сумме

n:= n div 10;    // отбрасываем ее из числа

end;

// выводим ответ

if s mod 2 = 0 then writeln( сумма цифр трехзначного числа четная , s) else writeln( сумма цифр трехзначного числа нечетная , s);

end.