program SumOfEvenNumbers;

var
number, sum: integer;

begin
sum := 0;

for number := 100 to 999 do
begin
if (number mod 2 = 0) then
sum := sum + number;
end;

writeln('Сумма всех трёхзначных четных чисел: ', sum);
end.