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