Задача №12. Дано натуральное число М. Написать программу для вычисления суммы вида

Если начальное значение суммы не указано в условии, то присвойте сумме ноль перед операцией. s:=0; while s => m do s:=s+3; (после do лучше писать с новой строки, у меня почему-то все в одну лепит)