Var a,b,c:integer;begin readln(a); if (a > 999) or (a < 100) then begin writeln('Это не трёхзначное число'); exit; end; if (a mod 10 = a div 100) then begin writeln('Первая цифра не должна совпадать с последней'); exit; end; b := (a mod 10)*100 + (a mod 100 - a mod 10) + (a div 100); writeln(b); if ( a >= b) then c := a - b else c:= b - a; writeln(c mod 100 div 10);end.