Решить в паскале.с полным решением! дано двузначное число. найти: а) число десятков в нем; б) число единиц в нем; в) сумму его цифр; г) произведение его цифр.

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