1)Вывести в обратном порядке второе слово строки. Подсчитать количество букв в нем.
2) Составить программу для вычисления Т=(R/Q+1)+S. R - наименьший элемент массива;
Q - произведение элементов массива с нечетными номерами;
S - количество элементов, лежащих в интервале (A,B) (ввести с клавиатуры).
3) Вычислить среднее арифметическое положительных элементов матрицы, расположенных ниже
побочной диагонали. Закрасить указанные элементы.

var  x: string;  arr: array of char;begin  readln(x);  arr := x.Split(' ')[1].ToCharArray();  System.Array.Reverse(arr);  writeln(length(arr), '   ', new string(arr));end.---------------------------------------var  c: array of integer := (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);  r, q, s: real;  i, a, b: byte;  begin  q := 1;  i := 1;  r := c.Min();  while (i < length(c)) do  begin    q *= c[i];    i += 2;  end;  readln(a, b);  s := b - a - 1;  writeln('T = ', (R / Q + 1) + S);end.-----------------------------const  k = 5;  p = 5;var  f: array [1..k, 1..p] of string;  o: real;  df: byte;begin  for i: byte := 1 to k do  begin    for j: byte := 1 to p do    begin      f[i, j] := random(10, 99).ToString();      write(f[i, j]:3);      if (j >= 7 - i) then      begin        o += integer.Parse(f[i, j]);        df += 1;        f[i, j] := '██';      end;    end;    writeln();  end;  writeln();  for i: byte := 1 to k do  begin    for j: byte := 1 to p do      write(f[i, j]:3);    writeln();  end;  writeln(o / df);end.