СРОЧНО СРОЧНО СРОЧНО
ПОЖАЛУЙСТА ПОМОГИТЕ
вводится десятичное число. написать программу, которая вычесляет количество десятков и единиц в вводимом числе. Программа должна вывести на экран сообщение: "в числе десятков= , в числе единиц= ".

var n:integer;beginwrite('n = ');readln(n);writeln('в числе десятков = ',n mod 100 div 10);writeln('в числе единиц = ', n mod 10);end.Пример:n = 125в числе десятков = 2в числе единиц = 5