Используя операторов div и mod,составить алгоритм нахождения суммы и произведения цифр двузначного числа.
Помогите срочно.

var
  N, f, s: byte;

begin
  write('N = ');
  readln(N);
  f := N div 10; 
  s := N mod 10;
  writeln('Сумма цифр: ', f+ s);
  writeln('Произведение цифр: ', f* s);
end.