Программисты, помогите! нужно написать программу на паскале.

const n=10;var a:array[1..n] of integer;s,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(51); write(a[i],' '); end;writeln;s:=0;for i:=1 to n do s:=s+a[i];writeln('s = ',s);end.Пример:44 8 22 40 22 49 23 34 22 7s = 271