Используя функцию random запишите правильно команду: элемент массива е с номером i находится в интервале [17..37]

E[i]: =random(17,37);

Var   i,n,m: integer;   k,s: longint; begin   write('задайте количество чисел: '); read(n);   s: =0; m: =0;   writeln('вводите ');   for i: =1 to n do   begin       read(k);       if (k mod 2)=0 then begin s: =s+k*k; inc(m) end   end;   writeln('среднее квадратов четных чисел: ',s/m: 0: 4) end. тестовое решение: задайте количество чисел: 7 вводите 36 -18 15 8 14 6 9 среднее квадратов четных чисел: 383.2000

// меньшее из двух чисел (a,b) уменьшите на 4 var x,y   : real; begin   writeln ('введите первое число');   readln (x);   writeln ('введите второе число');   readln (y);   while x=y do     begin       writeln ('вы ввели равные числа. по условиям числа не должны быть равны. попробуйте еще раз');       writeln ('введите первое число');       readln (x);       writeln ('введите второе число');       readln (y);     end;   if x< y then x: =x-4             else y: =y-4;   writeln ('первое число ',x,' второе число ',y);         end.