(Pascal) Дан одномерный массив чисел. Определите сумму его элементов

[Godnub]

Дан одномерный массив чисел. Определите сумму его элементов.(Pascal)

[newerow1989]

var p:array[1..10] of integer;
    i,s:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   s:=0;
   For i:=1 to 10 do
      s:=s+p[i];
   Writeln(s);
   Readln;
end.