Миша записал IP-адрес школьного сервера на листке бумаги и положил его в кар-
ман куртки. Мишина мама случайно постирала куртку вместе с запиской. После
стирки Миша обнаружил в кармане четыре обрывка с фрагментами IP-адреса. Эти
фрагменты обозначены буквами А, Б, В и Г:
102
. 189
| 146
| 16.
84.1
232.6
| Б
| 84.1
Б
Г
А
8
Г
232
51.
5.22
9. 107 . 23
Б
| 4.19
А
| 202.5 | 8
Б
А
в
16. 18 | 12
А
Б
| 9.43
| В
| 1.17 |
| Г
Восстановите IP-адрес. В ответе укажите последовательность букв, обозначающих
фрагменты, в порядке, соответствующем IP-адресу

Сначала немного теории.
--> - импликация, следование
Таблица истинности импликации

x1 x2 r
0   0  1
0  1   1
1  0   0
1  1   1
Общее правило: если x1<=x2, тогда правда, в остальных случаях ложь.
^ - Конъюнкция, логическое И
Таблица истинности конъюнкции
x1 x2 r
0   0  0
0   1 0
1   0  0
1   1  1
Общее правило: если x1 или x2 = 0, тогда ложь. x1=x2=1, только тогда правда.

(первая буква имени согласная ---> вторая буква имени согласная)^ четвертая буква имени согласная 
1) Лариса 
2) Сергей 
3) Геннадий 
4)Елена

Теперь по вариантам:
1) Лариса 
Получается (1-->0)^0=0^0=0, не подходит
2) Сергей 
(1-->0)^1=0^1=0, не подходит
3) Геннадий
(1-->0)^1=0^1=0, не подходит
4) Елена
(0-->1)^1=1^1=1, подходит
ответ: 4) Елена

Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

  readln;
end.