Здравствуйте, не дайте умереть, решите пожалуйста такую задачу, буду бесконечно благодарен :3 :
Переменная X содержит трёхзначное число. Поместите в переменную сумму цифр этого числа. Результат выведите через функции управления цветом и координатами.

Pascal 1 var n, sum: integer;2 begin3 write ( 'введите число:' );4 readln (n);5 sum:=0;6 while n > 0 do begin7 sum:= sum+ n mod 10;8 n:= n div 109 end10 writeln (' сумма цифр = ' , sum ) Удачи все что знаю