Ввести натуральное число и определить, верно ли, что сумма его цифр равна10.

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.