Program zadanie;
Var a,b,s1,n:integer;
Begin
Writeln('Введите 3-х значное целое число');
readln(s1);
If (s1>=100) and (s1<=999) then begin
for n:=100 to s1 do begin
a:=n div 100+(n div 10) mod 10;
b:=(n mod 100) mod 10+(n div 10) mod 10
end;
if a<b then writeln(b,a)
else writeln(a,b)
end;
writeln('Неправильное число.')
end.
