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

Var a,n,i,step:longint;
begin
  writeln('Введите число и степень через пробел');
  readln(a,n);
  step:=1;
  for i:=1 to n do
  step:=step*a;
  writeln('ответ: ',step);
  readln
end.