Дан массив а из 20 элементов. найти сумму элементов массива. результат вывести на печать . на языке бейсика. если можно полное

program summa;

uses Crt;

const

   n = 20;

var A: array[1..n] of integer;

s: integer;

i: integer;

begin

ClrScr;

randomize; {запускаем генератор случайных чисел}

FOR I:=1 to n do

A[i]:=random(20);

FOR I:=1 to n do

begin

Write (A[i]);

Write(' ');

end;

s:=0;

FOR I:=1 to n do

S:=S+A[i];

WriteLn;

WriteLn ('Сумма чисел: ', s);

end.