Program P1;
{--------------------------------------------------------------
  SE DAU NR. NATURALE m si n.
  Sa se determine:
  A) cel mai mic nr de doua cifre, format din cifrele 
     unitatilor ale celor 2 nr;
  B) cel mai mare nr de 2 cifre format din cifrele zecilor ale
     celor 2 nr; daca nr e de o cifra, atunci cifra zecilor se
     va considera 0.
 --------------------------------------------------------------}
var 
   m, n: word;
{--------------------------------------------------------------}
function mic(m,n: word): byte;
var a,b: byte;
begin
  a := m mod 10;
  b := n mod 10;
  if a = b then mic := a else 
  if(a>b)and(b<>0)or(a=0)then 
        a := 10*b + a    else 
        a := 10*a + b;
  mic := a;
end;
{--------------------------------------------------------------}
function mare(m,n: word): byte;
var a,b: byte;
begin
  a := (m div 10) mod 10;
  b := (n div 10) mod 10;
  if(a>b)and(a<>0)or(b=0)then 
      mare := 10*a + b    else 
      mare := 10*b + a;
end;
{--------------------------------------------------------------}
BEGIN
  writeln('Introdu 2 nr. naturale!'); readln(m,n);
  writeln;
  writeln('a) Mic:  ', mic(m,n) );
  writeln('b) Mare: ', mare(m,n));
  readln;
END.