// PascalABC.NET
begin
if ReadInteger.ToString.Distinct.Count = 3 then
Print('да')
else
Print('нет')
end.
// PascalABC.NET
begin
if ReadInteger.ToString.Distinct.Count = 3 then
Print('да')
else
Print('нет')
end.