Напишите булево уравнение в формах суммы продукта и продукта суммы для следующих таблиц истинности.​

1 постановка задачи

исходные данные Х,У

результат: текст1 или текст2 или текст3 или текст4 или текст5 или текст6 или текст7

2.Формализация

если (x=0) and (y=0) то вывод  текст1 ('это начало координат');
если (y=0) and (x<>0 )  то вывод текст2 ('точка лежит на оси OX');
если (y<>0) and (x=0 )  то вывод текст3 ('точка лежит на оси OY');
если (y>0) and (x>0 )  то вывод текст4 ('точка в  1 четверти');
если  (y>0) and (x<0 )  то вывод текст5 ('точка во 2 четверти');
если (y<0) and (x<0 )  то вывод текст6 ('точка в 3 четверти');
если (y<0) and (x>0 ) то вывод текст7 ('точка в 4 четверти')сли

var
x,y: integer;
begin
writeln ('ââåäè êîîðäèíàòû òî÷êè x,y');
read (x,y);
if (x=0) and (y=0) then writeln (''это начало координат');
if (y=0) and (x<>0 )  then  writeln ('точка лежит на оси OX');
if (y<>0) and (x=0 )  then  writeln ('точка лежит на оси OY');
if (y>0) and (x>0 )  then  writeln ('точка в  1 четверти');
if (y>0) and (x<0 )  then  writeln ('точка во 2 четверти');
if (y<0) and (x<0 )  then  writeln ('точка в 3 четверти');
if (y<0) and (x>0 )  then  writeln ('точка в 4 четверти')
end.

Const
  nn=100;
var
  a:array[1..nn] of integer;
  i,n,k,l,s:integer;
begin
  Randomize;
  Write('Количество элементов в массиве: '); Read(n);
  Write('Границы для суммирования: '); Read(k,l);
  { Считаем,что все введено корректно без проверки }
  Writeln('Элементы массива');
  s:=0;
  for i:=1 to n do begin
    a[i]:=Random(100);
    Write(a[i],' ');
    if i in [k..l] then s:=s+a[i]
    end;
  Writeln(#13#10,'Найденная сумма: ',s)
end.
 
Пример
Количество элементов в массиве: 13
Границы для суммирования: 3 9
Элементы массива
30 82 9 6 20 99 58 61 18 61 73 51 28
Найденная сумма: 271