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

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.

файл, правка, вид, вставка, формат, сервис, таблица, окно, справка.