Таблица Общественное движение после Отечественной войны 1812г

Program G;
Uses Crt;
Var summ, x, m, back: integer;
Begin
 ClrScr;
 Writeln('Введите натуральное число.');
 Readln(x);
 Summ:=0;
 Back:=x;
 While x>0 do
  Begin
   m:=x mod 10;
   x:=x div 10;
   summ:=summ+m;
  End;
 If summ=10 then Writeln('Сумма цифр числа ', back, ' равна 10.')
  Else Writeln('Сумма чисел числа ', back, ' не равна 10.');
 Readln;
 End.