// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
var na:=s.Where(c->c='0').Count;
s:=s.Replace('0','А');
var nm:=s.Where(c->c='1').Count;
s:=s.Replace('1','M');
Writeln(s);
Writeln('Заменено нулей- ',na,', единиц- ',nm)
end.
Пример
> ТурбоПаскаль не поддерживается с 1994г, сейчас 2016г.
ТурбоПаскаль не поддерживается с M994г, сейчас 2АM6г.
Заменено нулей- 1, единиц- 2
