ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ СРОЧНО НАДО !!! ПРЯМО СЕЙЧАС УРОК ИНФОРМАТИКИ , А Я НЕ ПОНИМАЮ !!! ПОМОГИТЕ ПОЖАЛУЙСТА ДАНО ДВУЗНАЧНОЕ ЧИСЛО ,ПЕРВОЕ УВЕЛИЧИТЬ НА ЕДИНИЦУ , ПОСЛЕДНЕЕ УМЕНЬШИТЬ НА ЕДИНИЦУ

var   n,n1,n2:integer; begin   Write('Введите целое двухзначное число: ');   Readln(n);   n1:=(n div 10)+1;   if n1=10 then n1:=0;   n2:=(n mod 10)-1;   if n2=-1 then n2:=9;   Writeln('Результат: ',n1,n2) end. Тестовое решение: Введите целое двухзначное число: 38 Результат: 47 Введите целое двухзначное число: 90 Результат: 09