Question

Напишите пожалуйста код программы в Pascal,которая вычисляет квадрат суммы первых N чисел.Количество чисел (N) следует запросить у пользователя.

Answer 1

Var
   i,n,a:integer;
Begin
  Writeln('Введите число');
  Readln(n);
  for i:= 1 to n do
    a:=a+i;
 Writeln('Квадрат суммы этих чисел равен ',sqr(a));
End.