Упростите выражение,испозьзуя свойства логических операций (законы логики)
( A V B ) A B

Var
  i, a, b, n, n2, j: longint;
  s: string;
  flag: boolean;

begin
  Write('Введите через пробел границы диапазона: ');
  Readln(a, b);
  if b < a then begin n := a; a := b; b := n end;
  if a < 11 then a := 11;
  for i := a to b do
  begin
    Str(i, s);
    n := Length(s); n2 := n div 2; flag := true; j := 1;
    repeat
      flag := (s[j] = s[n - j + 1]);
      j := j + 1
    until (not flag) or (j > n2);
    if flag then Write(i, ' ')
  end;
end.

Тестовое решение:

Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441

Const
  n = 10;

var
  h: array[1..n] of real;
  i: integer;
  s: real;

begin
  Randomize;
  Write('Элементы массива: ');
  s := 0;
  for i := 1 to n do
  begin
    h[i] := (100 * Random - 50) / 3;
    Write(h[i]:0:3, ' ');
    if h[i] < 0 then s := s + h[i]
  end;
  Writeln(#13#10, 'сумма отрицательных элементов равна ', s:0:3)
end.

Тестовое решение:

Элементы массива: 9.159 -12.427 11.448 -7.493 -12.976 -2.252 9.923 -4.759 -7.867 5.567
сумма отрицательных элементов равна -47.774

const
  m = 3;
  n = 4;

var
  h: array[1..m, 1..n] of real;
  i, j: integer;
  p: real;

begin
  p := 1;
  for i := 1 to m do
  begin
    Write('Введите через пробел элементы строки ', i, ': ');
    for j := 1 to n do
    begin
      Read(h[i, j]);
      if h[i, j] <> 0 then p := p * h[i, j]
    end
  end;
  Writeln('Произведение ненулевых элементов равно ', p:0:3)
end.

Тестовое решение:

Введите через пробел элементы строки 1: -2.1 3.7 0.46 17
Введите через пробел элементы строки 2: -3.54 0 11.7 2.222
Введите через пробел элементы строки 3: 3 -5.1 -4.7 0
Произведение ненулевых элементов равно 402114.968

const
  n = 4;

var
  i, k: integer;
  d: array[1..n] of string;

begin
  k := 0;
  for i := 1 to n do
  begin
    Write('Введите слово ', i, ': ');
    Readln(d[i]);
    if (d[i][2]='о') then k:= k + 1
  end;
  Writeln('Количество слов со второй буквой "о" равно ', k)
end.

Тестовое решение:

Введите слово 1: Информатика
Введите слово 2: Компьютер
Введите слово 3: Процессор
Введите слово 4: Монитор
Количество слов со второй буквой "о" равно 2

const
  n = 4;

var
  i, imin: integer;
  A: array[1..n] of real;
  B: array[1..n] of string;
  min: real;

begin
  min := 1000;
  for i := 1 to n do
  begin
    Write('Введите фамилиию участника ', i, ': ');
    Readln(B[i]);
    Write('Введите время участника ', i, ': ');
    Readln(A[i]);
    if A[i] < min then begin min := a[i]; imin := i end;
  end;
  Writeln('Лучшее время ', a[imin], ' у участника ', b[imin])
end.

Тестовое решение:

Введите фамилиию участника 1: Иванов
Введите время участника 1: 8.3
Введите фамилиию участника 2: Петров
Введите время участника 2: 7.9
Введите фамилиию участника 3: Сидоров
Введите время участника 3: 8.7
Введите фамилиию участника 4: Васечкин
Введите время участника 4: 8.0
Лучшее время 7.9 у участника Петров