Program Equa_1d;
Var a, b : Real;
Begin
Write ('a = ');
Readln (a);
Write ('b = ');
Readln (b);
If a <> 0 Then Writeln ('x = ', -b/a)
Else If b = 0 Then Writeln ('IR')
Else Writeln ('{}') ;
End.
UHJvZ3JhbSBFcXVhXzFkOwpWYXIgYSwgYiA6IFJlYWw7CkJlZ2luCldyaXRlICgnYSA9ICcpOwpSZWFkbG4gKGEpOwpXcml0ZSAoJ2IgPSAnKTsKUmVhZGxuIChiKTsKSWYgYSA8PiAwIFRoZW4gV3JpdGVsbiAoJ3ggPSAnLCAtYi9hKQpFbHNlIElmIGIgPSAwIFRoZW4gV3JpdGVsbiAoJ0lSJykKRWxzZSBXcml0ZWxuICgne30nKSA7CkVuZC4=