Отрывок из сказки в которой можно определить что является источником, каналом связи, приемником.

например красная шапочка ; бабушка канал связи, источник это красная шапочка, а приемник это волк

Программа имеет линейную структуру, если все операторы (команды) выполняются последовательно друг за другом.

                                         

Командой повторения, или циклом, называется такая форма организации действий в алгоритме, при которой выполнение одной и той же последовательности команд повторяется до тех пор, пока истинно некоторое логи­ческое выражение.

Различают циклы с известным числом повторений (цикл с параметром) и итерационные (с пред- и постусловием).

Приведем обозначение каждого из видов циклов на блок-схемах алгоритмов.

^ Ц 
ПЦ:= НЗ, КЗ, Ш
икл с параметром Цикл с предусловием Цикл с постусловием 

серия

На схемах "Серия" обозначает один или несколько любых операторов (команд); ЛВ есть логическое вы­ражение (если его значение истина, переход проис­ходит по ветви, обозначенной да, иначе — по нет). На схеме цикла с параметром использованы обозна­чения: ПЦ — параметр цикла, НЗ — начальное зна­чение параметра цикла, КЗ — конечное значение па­раметра цикла, Ш — шаг изменения параметра цик­ла. Серию команд, которые выполняются в цикле, называют телом цикла.Опишем схематично, как выполняется каждый из циклов.

Цикл с предусловием:

а) вычисляется значение логического выражения;

6) если значение логического выражения истина, переход к следующему пункту, иначе к п. д);

в) выполняется тело цикла;

г) переход к п. а);

д) конец цикла.

Цикл с постусловием:

а) выполняется тело цикла;

6) вычисляется значение логического выражения;

в) если значение логического выражения ложь, пере­ход к п. а), иначе к следующему пункту; 

г) конец цикла.

Var a,b:longint;
function sum (n:integer):integer;
  var s:integer;
  begin
     s:=0;
     while (n<>0) do
       begin
         s:=s+n mod 10;
         n:=n div 10;
       end;
     sum:=s; 
  end;
  begin
    write ('A = ');
    readln (a);
    write ('B = ');
    readln (b);
    if sum(a) > sum(b) then
       writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))
    else if sum(b) > sum (a) then 
       writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))
    else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');
    readln;
  end.