Выполни действия по программе: 1. Найти сумму чисел 459 и 75. 2. Результат уменьшить на 98.

Var X:array of integer;
    n,i,Y :integer;
begin
  randomize;
  Y:=0;
  write ('введите размер массива ');
  readln(n);
  Setlength(X,n);
  for i:=0 to N-1 do begin
  X[i]:=random(100);
  Y:=Y+X[i];
  end;
   writeln ('y= ',y);
end.