найти сумму трехзначного числа . паскаль. найти через цикл ПОМОГИТЕ СРОЧНО, ПОЖАЛУЙСТА

program nomer; var N:integer; begin writeln('vvedite chislo '); readln(N); N:=(N div 100)+((N div 10) mod 10)+(N mod 10); writeln('summa 4ucel ravna: ',N); writeln; readln; end.