программа, которая создает в отдельном случайный массив

program jfe3;const n=10; {Это будет кол-во элементов массива}var a:array [1..n] of integer; i,s:integer;begin

randomizefor i:=1 to n do begin a[i]:=random(100); {элемент выбирается случайно от 0 до 100} s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме} end;for i:=1 to n dowriteln(a[i],' '); {показать сам массив}writeln(s); {показать сумму}readln; {чтобы окно сразу не закрывалось}end.

 так?

program jfe3;const n=10; {Это будет кол-во элементов массива}var a:array [1..n] of integer; i,s:integer;beginfor i:=1 to n do begin a[i]:=random(100); {элемент выбирается случайно от 0 до 100} s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме} end;for i:=1 to n dowriteln(a[i],' '); {показать сам массив}writeln(s); {показать сумму}readln; {чтобы окно сразу не закрывалось}end.