Найти сумму 1² + 2² + 3² +10². операцию возведения в степень не использовать.паскаль

var
  a, b: integer;  

begin
  for a := 1 to 10 do
    b += a * a;
  writeln(b);
end.

Var  x,s: integer;  
begin
  for x := 1 to 10 do
    s:= s+x*x;
writeln('Сумма равна ',s);
end.