Выбрать пары объектов о которых можно сказать что они находятся в отношении "объект-модель"
болт-чертеж болта
компьютер - функциональная схема компьютера
планета Земля - глобус
курица - цыплята
страна - её столица​

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

            i                    с                 i            i с                                  c i

            i                  с                     i

            c -  cтул

            4 стула поставить по углам комнаты, а еще 4 - по одному у каждой стены.

во - первых рассмотрим простые высказывания:

м - монитор неисправен

в - видеокарта неисправна

о - оперативная память неисправна

во вторых: запишем на языке логики возможные предположения: (m v b) --> o и m --> b

пусть  f(м,в,о) =  (m v b) --> o и m --> b

составляем таблицу истинности:

м     в     о     m --> b      

0       0     0         1

1       0     1         1

0       0     0         1

1       1     1         0

0       0     0         1

0       1     1         0

1       1     0         0

1       1     1         1

1       0     0         0

1       0     0         0

0       1     1         1

1       1     0         1

0       1     1           0

1       1     1           1

0       0     1           0

1       1     0           1

1       1     0           1

1       0     1           1                

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

var x1,x2,x3,x4: integer;

function max(a,b: integer): integer

begin

    if a> b then max: = a

    else max: =b;

end;

begin

  read(x1,x2,x3,x4);

  x1: =max(x1,x2);

  x2: =max(x3,x4);

  x1: =max(x1,x2);

  writeln(x1);

end.