Program p41_1;
{--------------------------------------------------------------
    Se dau numerele intregi m si n. 
    Fara a compara, sa se afiseze numarul mai mic dintre ele.
 --------------------------------------------------------------}
var m, n, i: integer;
BEGIN
    writeln('Introdu 2 nr. intregi!');
    write('m = '); readln(m);
    write('n = '); readln(n);
    writeln;
    
    i := (m - n) shr (sizeof(i)*8-1); 
    i := m and i or n and not i;
    writeln('Nr minim dintre ', m, ' si ', n,' este ', i,' !');
    readln;
END.