Составьте программу нахаждения суммы квадратов натуральных чисел от 15 до 25 . Пожалуйста помогите

program p1;uses crt;var a,b,i:integer;beginfor i:=15 to 25 do begina:=a+i*i;b:=i*i;writeln('Сумма:',a,'(квадрат числа :',i,'=',b,')');end;write(a);end.