1. Формализовать и решить логическую задачу Продавец фруктов заказал на оптовой базе по ящику яблок, апельсинов и груш, составил ящики друг на друга и повез к своей палатке. Разгружая машину, продавец заметил, что в нижнем ящике фрукты сильно помялись. Переспевшие груши тоже имели не самый лучший вид, хоть и лежали в верхнем ящике. Целыми остались только завернутые в сеточки апельсины. В каком ящике лежали яблоки?

2. Составить таблицу истинности четырех функций
X ∨ ¬Y ∨ ¬Z
¬(¬X&¬Y) & (X&Y)
¬X ⇔ (¬X xor Y)
¬(¬X ∨ ¬Y) & (X xor Y) ⇔ Z

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");
        }
    }
}

//Pascal ABC.NET v3.0 сборка 1111

Var 
 ars:array[1..50] of string;
 ark:array[1..50] of integer;
 s:string;
 i,n,k,j:integer;
begin
 readln(n);
 k:=0;
 for i:=1 to n do
  begin;
   readln(ars[i]);
    for j:=1 to 4 do
     delete(ars[i],1,pos(' ',ars[i]));
    s:=ars[i];
    if (s[1]='6') or (s[1]='7') or (s[1]='8') then
     begin;
      inc(k);
      ark[k]:=i;
     end;
  end;
writeln(k);
for i:=1 to k do
writeln(ark[i]);
end.

Пример ввода:
2
Петров Петр Петрович 10 6 2007
Иванов Иван Иванович 10 2 2007
Пример вывода:
1
1