Всем привет.
Прошу помогите с этими 2 задачами.

С клавиатуры вводится натуральное число n. Найти сумму n2 + (n+1)2 + ... + (n+n)2.
Найти сумму квадратов всех целых чисел от a до b (a и b вводятся с клавиатуры; b ≥ a).

Помогите их сделать на PascalABC через функцию.
Заранее спасибо!

var n,a,b:integer;function sum(x,y:integer):integer;var s,i:integer;begins:=0;for i:=x to y do s:=s+i*i;sum:=s;end;beginwrite('n = ');readln(n);writeln(n,'^2 + ',n+1,'^2 + ... + ',n+n,'^2 = ',sum(n,n+n));write('a, b = ');readln(a,b);writeln(a,'^2 + ',a+1,'^2 + ... + ',b,'^2 = ',sum(a,b));end.Пример:n = 55^2 + 6^2 + ... + 10^2 = 355a, b = 5 105^2 + 6^2 + ... + 10^2 = 355