ПРОШУ Растолкуйте ПОЖАЛУЙСТА НА ЛЮБОМ ЯЗЫКЕдано естественное число x.вычислите длину меньшего

Ответ:

Изъяснение:

var

 x, a, b:integer;

 ras_x_a, ras_x_b, ras_a_b:integer;

 ras_min:integer;

begin

 x:=5;

 a:=1;

 b:=8;

 ras_x_a:=абс(x-a);

 ras_x_b:=абс(x-b);

 ras_a_b:=abs(a-b);

 if ((ras_x_a lt;=ras_x_b) and (ras_x_a lt;=ras_a_b)) then

   ras_min:=ras_x_a

 else

   if ((ras_x_b lt;=ras_x_a) and (ras_x_b lt;=ras_a_b)) then

   ras_min:=ras_x_b

   else

     if ((ras_a_b lt;=ras_x_a) and (ras_a_b lt;=ras_x_b)) then

     ras_min:=ras_a_b;

 writeln(ras_min);

end.