Program Task_16_l;
Var a, b : Integer;
Begin
Write('Aaaaeoa a e b ');
ReadLn (a,b);
If a=0 Then Write('yravnenie resh ne imeet')
Else If b=0
Then Write('beskonechnoe mn-vo resh')
Else Write('edinstvennoe reshenie');
End.