Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10. Пример:
Введите число >= 0: Введите число >= 0:
-234 1233
Нужно положительное число. Нет
Введите число >= 0:
1234
Да
решение паскаль.

program CheckSum;

var

number1, number2, number3: longint;

function Check(n: longint): boolean;

var

sum: longint;

begin

sum := 0;

while n > 0 do

begin

sum := sum + n mod 10;

n := n div 10;

end;

Check := sum = 10;

end;

begin

writeln('Введите два числа через пробел:');

readln(number1, number2);

if number1 < 0 then

begin

write('Нужно ввести положительное число.');

end

else

begin

if Check(number1) then

begin

write('Да');

end

else

begin

write('Нет');

end;

end;

if number2 < 0 then

begin

write(' Нужно ввести положительное число.');

end

else

begin

if Check(number2) then

begin

write(' Да');

end

else

begin

write(' Нет');

end;

end;

writeln();

repeat

write('Введите число >= 0: ');

readln(number3);

if number3 < 0 then

begin

writeln('Нужно ввести положительное число.');

end;

until number3 >= 0;

if Check(number3) then

begin

writeln('Да');

end

else

begin

writeln('Нет');

end;

end.