Напишите программу, которая вводит трехзначное число и находит сумму цифр этого числа.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

                                                              алгоритм перехода улицы по свотофору

1.посмотреть какой цвет на светофоре

2.если зеленый то посмотреть направо 

3.посмотреть налево

4.если машын нету, то начать переходить

5.дойти до островка и снова  посмотреть направо и налево и перейти дорогу

                                                                  алгоритм посадки дерева

1.взять лопату и выкопать ямку, положыть лопату

2.взять садженец и поставить его в ямку

3.взять ведро и полить садженец, положыть ведро

4.взять лопату и закопать садженец, положыть лопату

5.взять ведро и полить садженец, положить ведро

залить в кувшин 3-х литровый воды до полна,перелить её в кувшин ёмкостью 8 литров.эту операцию проделать 3 раза,тогда в маленьком кувшине останется ровно литр воды.вылить всё из большого,залить туда воду из маленького(это 1 литр),затем залить в большой 3 маленьких и тогда получится 7 литров в большом кувшине.

на 1 дереве - 5 

на 2дереве - 7