2112(3) = 2*3^3 + 1*3^2 + 1*3^1 +2*3^0 = 2*27 + 9 + 3 + 2 = 68(10)
var x,y,z:real;
begin
readln(x,y,z);
if (x<y+z) and (y<x+z) and (z<x+y) then begin
if (x=y) and (y=z) then writeln('Ravnostoronnii') else writeln('Ne ravnostoronnii');
end else writeln('Ne vozmojno sostavit');
end.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqGen(ReadInteger('n='),1,1,(x,y)->x+y).Println
end.
<u><em>Тестовое решение:</em></u>
n= 10
1 1 2 3 5 8 13 21 34 55
412030 - расшифровка которую можно расшифровать единственным способом, потому как нет значений 41 и 0.
Расшифровка 4 -1 - 20 - 30 = Г-А-Т-Ь