Задача 8 Напишите НАИМЕНЬШЕЕ число х, для которого ИСТИННО высказывание:

НЕ(x =50) ИЛИ НЕ(x >= 20)

Задача 11

Напишите НАИБОЛЬШЕЕ число х, для которого ЛОЖНО высказывание:

НЕ(x =20) ИЛИ НЕ(x >= 10)

Задача 13*

Напишите НАИМЕНЬШЕЕ число х, для которого ИСТИННО высказывание:

(x>14) И (x кратно 3) И (x кратно 2)

Задача 14*

Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание:

(x 8) ИЛИ (x < 3)) И (x четное)

Var A: array[1..20, 1..20] of integer;
m, n, k, i, j: integer;
begin
randomize;
repeat
write('Введите число столбцов и строк через пробел: ');
readln(n, m);
until (n in [1..20]) and (m in [1..20]);
for i := 1 to m do begin
for j := 1 to n do begin
A[ i, j ] := random(19) - 9;
write(A[i, j]:5);
end;
if odd(i) then writeln(' ') else writeln;
end;
writeln;
writeln('Заменяем отрицательные числа на нули, положительные - на единицы:');
writeln;
for i := 1 to m do begin
for j := 1 to n do begin
if A[ i, j ] <= 0 then A[ i, j ] := 0
else A[ i, j ] := 1;
write(A[i, j]:5);
end;
if odd(i) then writeln(' ') else writeln;
end;
end.

p.s: не совсем понятно последнее задание - вывести нижнюю треугольную матрицу. Сделать новую или что?

Var a, b, c, rez: real;
begin
write('Введите число А: ');
readln(a);
write('Введите число B: ');
readln(b);
write('Введите число C: ');
readln(c);
if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c;
if (a >= 0) and (b >= 0) then rez := a + b;
if (a >= 0) and (c >= 0) then rez := a + c;
if (b >= 0) and (c >= 0) then rez := b + c;
if (a <= 0) and (b <= 0) then rez := c;
if (b <= 0) and (c <= 0) then rez := a;
if (a <= 0) and (c <= 0) then rez := b;
if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0;
writeln(rez);
end.

Громоздко, но, думаю, покатит