Записать на языке Паскаль программу

program z;const n=30;var a:array[1..n] of integer; i,s:integer;begins:=0;for i:=1 to n dobegin a[i]:=random(50,200);s:=s+a[i];end;write(s);end.