Решение с таблицей в интернете есть, а мне нужно

разбирается дело джона, брауна и смита. известно, что один из них нашёл и утаил клад. на следствии каждый из подозре­ваемых сделал два заявления:

смит: «я не делал этого. браун сделал это».
джон: «браун не виновен. смит сделал это».
браун: «я не делал этого. джон не делал этого».

суд установил, что один из них дважды солгал, другой дважды сказал правду, третий один раз солгал, один раз сказал правду. кто из подозреваемых должен быть оправдан?

Тем что в первом выражении задано условие a больше в: и теперт,стало что а = b

дальше мы сделали теперь a = c

значит значение а уже равно с

а в другом блоке кода

тоже самое выражение но появилось уже else значит условие выполниться тогда и только тогда, когда будет условие if фальшивкой

а в данном примере он правдивое, значит условие else не произойдет  

вот пример  

int a = 5;

int b = 5;

int c = 5;

if a = b:

a = c

где будут различны

int a =6 ;

int b = 7;

int c = 8;

if a < b: a != b

a = b;

a = c;

все теперь значения разные

Объяснение:

1)
var a, b: array [1..10] of integer; i, sum: integer;
begin
     sum := 0;
     for i := 1 to 10 do
         b[i] := 0;
     for i := 1 to 10 do
     begin
         read(a[i]);
         if a[i] < 0 then
         begin
              sum := sum + 1;
              b[i] := i;
         end;
     end;
     writeln('Amount of negative numbers: ', sum);
     for i := 1 to 10 do
         if b[i] <> 0 then write(b[i], ' ');
end.

2)
var a: array [1..10] of integer; i: integer; flag: boolean;
begin
     flag := false;
     randomize;
     for i := 1 to 10 do
     begin
         a[i] := random(10);
         if a[i] = 5
         then
             flag := true;
     end;
     for i := 1 to 10 do
     write(a[i], ' ');
     if flag
     then
         writeln('YES')
     else
         writeln('NO');
end.

3)
var a: array [1..10] of integer; i, ind, odd: integer;
begin
     randomize;
     ind := 0;
     for i := 1 to 10 do
     begin
         a[i] := random(10);
         if a[i] mod 2 <> 0
         then
         begin
              ind := i;
              odd := a[i];
         end;
     end;
     for i := 1 to 10 do
     write(a[i], ' ');
     if ind <> 0
     then
         writeln(a[ind], ' ', ind)
     else
         writeln('Array has no odd elements');
end.

4)
var a: array [1..10] of integer; i: integer;
begin
     writeln;
     randomize;
     for i := 1 to 10 do
     begin
         a[i] := random(20);
         write(a[i], ' ');
     end;
     writeln;
     for i := 1 to 10 do
         if (a[i] < 15) and(a[i] > 5)
         then
             write(a[i], ' ');
end.