напиши рекурсивную подпрограмму , которая вычисляет сумму S(n)=1+3+5+...+(2n-1)

Но при первом вызове подпрограммы второй параметр должен быть обязательно равен 0

procedure s(n,ans:integer);beginif n<>0 then beginans:=ans+n+n-1;s(n-1,ans);endelsewriteln(ans);end;Вот пример всем программыprogram znanijatop;const null = 0;procedure s(n,ans:integer);beginif n<>0 then beginans:=ans+n+n-1;s(n-1,ans);endelsewriteln(ans);end;var n:integer;beginwriteln('vvedite n');readln(n);s(n,null);end.