Напишите код программы в pascal,которая вычисляет квадрат суммы первых n чисел.количество чисел (n) следует запросить у пользователя.

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