ПОМОГИТЕ РЕШИТЬ В ПАСКАЛЕ.С ПОЛНЫМ РЕШЕНИЕМ!
Дано двузначное число. Найти:
а) число десятков в нем;
б) число единиц в нем;
в) сумму его цифр;
г) произведение его цифр.

Var
  n:integer;
begin
  Write(n=); Read(n);
  Writeln(Десятков- ,n div 10);
  Writeln(Единиц- , n mod 10);
  Writeln(Сумма цифр- , n div 10+n mod 10);
  Writeln(Произведение цифр- , (n div 10)*(n mod 10))
end.

Тестовое решение
n=49
Десятков- 4
Единиц- 9
Сумма цифр- 13
Произведение цифр- 36