Дано трехзначное натуральное число. Найти сумму цифр этого числа — Pascal(Паскаль)

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.