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

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