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

Вера

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

 

var

  a, sum : integer;

begin

  read (a);

  sum := 0;

  while (sum 0) do

  begin

    sum := sum + a mod 10;

    a := a div 10;

  end;

  if sum > 10 then write ('Yes') else write ('No');

end.