Составить программу вычисления суммы квадратов чисел от 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); readlnend.