program SumOfDigits;
var
number, digit1, digit2, digit3, sum: integer;
begin
writeln('Введите трехзначное число:');
readln(number);

if (number < 100) or (number > 999) then
writeln('Число не трехзначное!')
else if number mod 4 = 0 then
begin
digit1 := number div 100;
digit2 := (number div 10) mod 10;
digit3 := number mod 10;

sum := digit1 + digit2 + digit3;
writeln('Сумма цифр трехзначного числа кратного 4:', sum);

end
else
writeln('Число не кратно 4!');

end.