 VladDzundza 
                                                12.06.2019 01:10
                                                
                                                VladDzundza 
                                                12.06.2019 01:10
                                             amina322 
                                                15.12.2020 02:09
                                                
                                                amina322 
                                                15.12.2020 02:09
                                             00101827 
                                                15.12.2020 02:08
                                                
                                                00101827 
                                                15.12.2020 02:08
                                             Ріo78 
                                                08.02.2021 22:06
                                                
                                                Ріo78 
                                                08.02.2021 22:06
                                             умница06092006 
                                                08.02.2021 22:07
                                                
                                                умница06092006 
                                                08.02.2021 22:07
                                             MelliLisska 
                                                13.04.2020 15:37
                                                
                                                MelliLisska 
                                                13.04.2020 15:37
                                             zisi 
                                                13.04.2020 15:37
                                                
                                                zisi 
                                                13.04.2020 15:37
                                             smailemail 
                                                13.04.2020 15:37
                                                
                                                smailemail 
                                                13.04.2020 15:37
                                             Qocharian 
                                                05.05.2021 15:01
                                                
                                                Qocharian 
                                                05.05.2021 15:01
                                            
===== PascalABC.NET =====
begin
var s := ReadlnString;
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'x', 'X': s[i] := '1'
end;
Println(s)
end.