program sumOfDigits;
var
number, digitSum, remainder: Integer;
begin
writeln('Enter a three-digit number:');
readln(number);

if (number < 100) or (number > 999) then
begin
writeln('Please enter a three-digit number.');
exit;
end;

if (number mod 4 = 0) then
begin
digitSum := 0;
remainder := number;

while remainder <> 0 do
begin
digitSum := digitSum + (remainder mod 10);
remainder := remainder div 10;
end;
writeln('The sum of the digits of the three-digit number is: ', digitSum);

end
else
writeln('The number is not divisible by 4.');
end.