Составить блок-схему, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет сумму чисел, крат­ных 6.

sum:=0;  

for i:=0 to 100 do  

if a mod 6=0 then sum:=sum+a;