Program pag27_46;
var a,b:word;
begin
Writeln;
Writeln('Introdu doua numere pozitive! (a, b)'); ReadLn(a,b);
if a<b then Writeln(' a) P'+#$D#$A+' b) N')else
if a>b then Writeln(' a) N'+#$D#$A+' b) M')else
            Writeln(' a) N si P'+#$D#$A+' b) M si N');
ReadLn
end.