var
  i, sum: integer;

begin
  i := 1;
  sum := 0;
  while (i <= 10) do
  begin
    sum := sum + i * i; 
    i := i + 1;
  end;
  writeln('Сумма квадратов всех целых чисел от 1 до 10 = ',sum);
end.