Решение задач на Pascal. Вычисление суммы алгебраической прогрессии

Постановка задачи: Найти сумму алгебраической прогрессии $\sum_{i=1}^{n}\left ( i+k \right )$, где k - целая константа
Код программы

	program lab2f;
	var n,k,y: integer;
	function row(num,n,k,y: integer): integer;
	begin
	y:=y+num+k;
	if (num >= n) then
	begin
	row:=y;
	end
	else
	row:=row(num+1,n,k,y);
	end;
	begin
	Writeln('Введите n повторений для функции y=i+k при изменяющемся i от 1 до n');
	Readln(n);
	Writeln('Введите k');
	Readln(k);
	Writeln('Сумма последовательности: ', row(1,n,k,0));
	end.

view raw Lab2f.pas hosted with ❤ by GitHub

	program lab;
	var n,k,y: integer;
	procedure row(num,n,k: integer; var y: integer);
	begin
	y:=y+num+k;
	if (num < n) then row(num+1,n,k,y);
	end;
	begin
	Writeln('Введите n повторений для функции y=i+k при изменяющемся i от 1 до n');
	Readln(n);
	Writeln('Введите k');
	Readln(k);
	row(1,n,k,y);
	Writeln('Сумма последовательности: ', y);
	end.

view raw Lab2p.pas hosted with ❤ by GitHub

Схема алгоритма