Найти сумму квадратов всех целых чисел от 1 до X - Pascal ABC

var
  i, summ, x: integer;
 
begin
  readln(x);
  summ := 0;
  for i := 1 to x do
    summ := summ + sqr(i);
  writeln('Цикл for, сумма: ', summ);
  summ := 0;
  i := 1;
  while i <= x do
  begin
    summ := summ + sqr(i);
    inc(i);
  end;
  writeln('Цикл while, сумма: ', summ);
  summ := 0;
  i := 1;
  repeat
    summ := summ + sqr(i);
    inc(i);
  until i > x;
  writeln('Цикл until, сумма: ', summ);  
end.