с помощью генератора случайных чисел на интервале (0,100) получите целочисленный массив, состоящий из 25 элементов"

Program posled;Var a: array[1..100] of integer;      i, n: integer;Begin  Write (‘Сколько элементов? ’);  Readln (n);   For i=1 to n do       begin                   a[i]:= Random(58)-23;             writeln (a[i],’ ‘);       end;End.