Складіть блок-схему фрагмента алгоритму, у якому
цикл з лічильником вкладено у повне розгалуження і який
виконується, якщо результат перевірки умови розгалуження Ні.
Поясніть (запишіть у зошиті) виконання складеного фрагмента.

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

program xxx;

  var n, c, d, e, s : integer;

begin

    write('введите число');

    readln(n);

    c: = n div 100;

    d: =(n div 10) mod 10;

    e: = n mod 10;

    s: = c + d + e;

    writeln('сумма чисел =', s);

    readln

end.

var a: integer; beginreadln(a); write (a div 10); end.

var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.

вот программа