Программа в Geany. Паскаль, пожалуйста) Задача 1. Дано трехзначное число N, вывести на…

Так, но будет работать не только с 3-значными числами.program test; uses crt; var s,n: integer; begin clrscr; write ('Input n '); readln (n); while n<>0 do begin s: =s+n mod 10; n: =n div 10; end; writeln (s); end.