Используя функцию random(x), получите числа в спектрах от 50 до 100

var
   arr : array[0..50] of integer;// объявляем массив.
   i, sum :integer; // объявляем переменные целочисленного типа.
begin
   for i := 1 to 50 do // начало цикла.
     begin
        arr[i] := random(50,100); // наполняем элемент массива случайным числом от 50 до 100.
        if (arr[i] mod 2 gt; 0) then // если число нечетное, то выводим его на экран.
       write(arr[i], );
     end;
end.