Из отдельных операторов составьте программу.
Ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет сумму всех чисел, крат­ных 6 и окан­чи­ва­ю­щих­ся на 6. Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 \(0 – при­знак окон­ча­ния ввода, не вхо­дит в последовательность\). Ко­ли­че­ство чисел не пре­вы­ша­ет 100. Введённые числа не пре­вы­ша­ют 300. Про­грам­ма долж­на вы­ве­сти одно число: сумму всех чисел, крат­ных 6 и окан­чи­ва­ю­щих­ся на 6.

• Var N,Sum,a : integer;
• Begin
• Read\(N\);
• Sum:=0;
• For i:= 1 to N do
• Begin
• Read\(a\);
• if \(a mod 10 = 6\) and \(a mod 6 =0\) Then Sum:=Sum+a;
• end;
• Write\(Sum\)
• End.