Составьте программу вычисления суммы квадратов чисел, лежащих в интервале [M, N] — Pascal(Паскаль)

Program summa;
Uses crt;
Var a,b: integer; c: longint;
Function sum (a,b: integer): longint;
Var i: integer; j: longint;
begin
j:=0;
For i:=a to b do
Inc(j,sqr(i));
sum:=j;
end;
Begin
Clrscr;
Write('Введите значение параметра a: ');
Readln(a);
Write('Введите значение параметра b: ');
Readln(b);
c:=sum(a,b);
Write('Сумма квадратов в диапазоне от a до b = ',c);
End.