Составить алгоритм(циклическую конструкцию) выводящий квадрат суммы первых N чисел - Turbo Pascal

Формулировка задачи:

Извиняюсь, что не туда пишу. Но нужно срочно. Составить алгоритм(циклическую конструкцию) выводящий квадрат суммы первых N чисел. Заранее спасибо, уважаемые.

Решение задачи: «Составить алгоритм(циклическую конструкцию) выводящий квадрат суммы первых N чисел»

Листинг программы

var
  i, n : integer;
  s : real;
begin
  s := 0;
  write('введите число: ');
  readln(n);
  for i := 1 to n do
    s := s + i;
  writeln('квадрат суммы первых ', n, ' чисел: ', sqr(s):0:0);
  readln
end.

Объяснение кода листинга программы

В данном коде на Turbo Pascal пользователь вводит число N, после чего происходит итерация от 1 до N. На каждой итерации переменная i увеличивается на 1, а переменная s суммирует все предыдущие значения i. После завершения цикла значение переменной s выводится на экран вместе с квадратом суммы первых N чисел, полученным с помощью функции sqr.