Составить программу вычисления суммы квадратов чисел от 1 до n

Переменная s сумма  n последний член
procedure proc(s,n: integer);
begin  
s:=s+sqr(n); 
if n>0 then  proc(s,n-1)  else  
writeln(' s= ', s:3) 
end;
var n:integer;
begin
 readln(n);
 proc(0, n);
readln
end.