Напишите программу для задачи: определить сумму цифр трехзначного числа кратных 4
На языке Паскаль!

Предыдущий
вопрос Следующий
вопрос

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;

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

end.