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

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