program SumOfDigits;
var
A: array [1..10] of integer;
num, sum, i: integer;

begin
randomize;

sum := 0;

for i := 1 to 10 do
begin
num := random(225) + 100; // генерируем трехзначное число
if (num mod 4 = 0) then // проверяем, кратно ли число 4
begin
writeln('Number: ', num);
sum := (num div 100) + ((num div 10) mod 10) + (num mod 10); // вычисляем сумму цифр
writeln('Sum of digits: ', sum);
end;
end;

end.