program SumMultiplesOf6;

var
sum, i: integer;

begin
sum := 0;

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

writeln('Сумма чисел кратных 6 в последовательности натуральных чисел от 1 до 20 равна: ', sum);
end.