program lab7;
const n=53;
var
x: array [1..100] of  integer;
y,i: integer;
s: real;
begin
 cls;
 s:=0;
writeln('Рандом-1, ручной ввод-2');
readln(y);
if y=2 then
begin
writeln ('Введите элементы массива:');
for i:=1 to n do begin
write ('x[',i,']=');
readln (x[i]);
s:=s+x[i];
end;
writeln ('Полученная сумма равна : ', s);
end;
if y=1 then
begin
writeln('Рандомно заполненый массив: ');
begin
    for i:=1 to n do
 begin
 x[i]:=random(100);
write(x[i]:5);
s:=s+x[i];
end;
writeln;
 writeln ('Полученная сумма равна: ', s);
end;
end;
end.