Вводим трехзначное натуральное число.Нужно найти сумму чисел этого числа- Pascal(Паскаль)

var
  b: real;
  n: integer;

begin
  writeln('vvedite chislo ');
  readln(n);
  b := (n div 100) + ((n div 10) mod 10) + (n mod 10);
  writeln('summa 4ucel ravna: ', b);
  writeln;
  readln;

end.