program SumOfNumbersDivisibleByThree;

var
i, sum: integer;

begin
sum := 0;

for i := 1 to 100 do
begin
if i mod 3 = 0 then
sum := sum + i;
end;

writeln('Сумма чисел от 1 до 100, которые делятся на 3 = ', sum);
end.