Для каждой пары объектов укажи связывающее их отношение. Draw и векторный графический редакторпрограмма «Руки солиста и клавиатурный тренажерMicrosoft Word Microsoft on: Linux и операционная системаі растровый графический редактор и графический редакторвекторный графический редактор и графический редакторSkype и коммуникационная программа : Windows XP и операционная системаPaint и растровый графический редакторі операционная система и программное обеспечение компьютераредактор презентация и прикладное программное обеспечениеDoctorWeb и антивирусная программаВходит в составЯвляется элементоммножестваЯвляетсяразновидностью​

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -