Ежедневно мама дает сыну на 1 рубль больше суммы предыдущего дня (начиная с 1 руб).Сколько мальчик накопит за год? составить в паскале программу вычисление (циклом)

Программа. var q,s:integer;  begin s:=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. // Конец выполнение программы.