Дано натуральное число. верно ли, что сумма его цифр больше 10? paskal

паскаль пишется как pascal.

var

  a, sum : integer;

begin

  read (a);

  sum : = 0;

  while (sum < = 10) and (a > 0) do

  begin

    sum : = sum + a mod 10;

    a : = a div 10;

  end;

  if sum > 10 then write ('yes') else write ('no');

end.

смотря какая передача и каких данных, много чего придумать можно, мне кажется) телефон, радио, модем,рация. или просто- передатчик.

((1+2): 3+4): 5=1

1+2+3-4+5-6=1

(1+2+3+4): 5+6-7=1

(1+2+3-4+5-6+7): 8=1