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

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