У бабушки было три кота - Рыжий, Белый и Серый. Ночью кто-то из них разбил бабушкину любимую вазу. Поскольку бабушка очень любила сериал "Шерлок Холмс", она почувствовала себя детективом и начала размышлять над тем, кто из её котов разбил вазу: 1) Если Рыжий не проказничал или Белый проказничал, то это Серый напроказничал. 2) Если Рыжий не проказничал, то Серый не проказничал.
Тема "Логика". Составить таблицу истинности, найти по таблице значения переменных для некоторых F=1, проанализировать результат.

Using System;

class Program
{
    static void Main()
    {
        for(var x=-2;x<=2;x++){
            for(var y=-2;y<=2;y++){
                IsPointOnAxis(x, y);
            }
        }
        Console.ReadKey();
    }

    static void IsPointOnAxis(int x, int y){
        Console.WriteLine("Point  = {0}; {1}", x, y);
        if (x*y != 0){
            Console.WriteLine("Point not on axis");
            return;
        }

        if (x == 0){
            Console.WriteLine("Point is on axis Ox");
        }else if (y == 0){
            Console.WriteLine("Point is on axis Oy");
        }
    }
}

//PascalABC.NET 3.0
const  n = 5;
begin
  var a := ArrRandomReal(n);
  var b := ArrRandomReal(n);
  write('Длины первого катета: ');
  foreach var i in a do write(i : 5 : 2);
  write(NewLine, 'Длины второго катета: ');
  foreach var i in b do write(i : 5 : 2);
  var imax := 0;  for var i := 1 to n - 1 do
    if a[imax] * b[imax] < a[i] * b[i] then
      imax := i;
  writeln(NewLine, 'Номер: ', imax + 1);
  writeln('Катеты: ', a[imax] : 0 : 2, ' ', b[imax] : 0 : 2);
  writeln('Площадь: ', a[imax] * b[imax] / 2 : 0 : 2);
end.