Не понятно как работает программа на рекурсию.

[Kroleg]

Эта программа вычисляет квадраты всех целых чисел от нуля до введённого натурального n, не используя операций умножения:

uses crt;
function Sqr(n,k:integer):integer;
begin
if k=1 then Sqr:=n
else Sqr:=sqr(k-1,n)+n;
end;
var n:integer;
begin
clrscr;
write('n=');
readln(n);
write(n,'^2=',Sqr(n,n));
readln;
end.

Мне не понятна эта строка: Sqr:=sqr(k-1,n)+n; Можете, пожалуйста, на примере какого-то числа объяснить как работает эта программа.(что происходит с числом n и k?).

[veniside]

> как работает эта программа

примерно так: