2112(3) = 2*3^3 + 1*3^2 + 1*3^1 +2*3^0 = 2*27 + 9 + 3 + 2 = 68(10)
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ReadArrReal(4).Sorted.ToArray;
if (a[0]=a[1]) and (a[2]=a[3]) then Writeln('Можно')
else Writeln('Нельзя')
end.
Var m: integer;
begin
readln(m);
write (m,' кг содержит ', m div 1000, ' полных тонн');
end.