Информатика, 9 класс. ! решите . кто хорошо разбирается, можете объяснить как решать подобные . на языке паскаль. текстовый файл с решением , выводящей сумму р чисел, вводимых с клавиатуры, 1< =p< =100

Program massiv;
var 
a: array [1..100] of integer;
p,n,c: integer;   
  begin
    writeln('Vvedite chislo P');
    readln(p);
             c:=0;
             for n:=1 to p do
              begin
                a[n]:=n;
                c:=c+a[n];
              end;
    writeln(c);
end.