Программа.var q,s:integer; begins:=1;for q:=1 to 365 do s:=s+q;Writeln(s);end.Описание программы.var q,s:integer; // Объявление переменных, где q - цикл от 1 до 365, s - сумма результата.begin // Начало выполнение программы.s:=1; // Присваиваем переменной s значение 1, т.к. по условию 1 рубль.for q:=1 to 365 do // Цикл от 1 до 365 s:=s+q; // Сумма цикла. То есть - Сумма = Сумма + Цикл с шагом 1. Начальное значение s равно 1, поэтому сумма считывается больше суммы предыдущего дня.Writeln(s); // Вывод результата.end. // Конец выполнение программы.