У исполнителя Умножатор две команды, которым присвоены номера:
1. умножь на 3
2. прибавь 2
Первая из них увеличивает число на экра¬не в 3 раза, вторая — прибавляет к числу 2. Составьте алгоритм получения из числа 2 числа 66, содержащий не более 5 команд. В ответе запишите только номера команд. (Например, 12212 — это алгоритм: умножь на 3, при¬бавь 2, прибавь 2, умножь на 3, при¬бавь 2, который преобразует число 2 в 32.) Если таких алгоритмов более одного, то запишите любой из них.
ответ:

Последовательности длиной 7, содержащей 5 букв А могут быть следующими:
** (* - любой из символов В или С)
*А*
ААА*АА*
АА*ААА*
А**
** (пока 6 вариантов)
Далее - аналогично:
**А
ААА*А*А
АА*АА*А
А*ААА*А
**А (ещё 5 вариантов)
ААА**АА
АА*А*АА
А*АА*АА
*ААА*АА (ещё 4 варианта)
АА**ААА
А*А*ААА
*АА*ААА (ещё 3 варианта)
А**
*А* (ещё 2)
** (ещё 1)
Итого: 6+5+4+3+2+1=21
Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая.
Можно здесь, конечно, комбинаторику вспомнить.
Итого: 21*4 = 84

//PascalABC.NET 3.2 сборка 1318
//Очередное решение "в лоб"

Var
  n,i,j,max:integer;
  s,curr:string;
  b:boolean=false;
begin
readln(n);
max:=-1;
s:=inttostr(n);
for i:=1 to length(s) do
  begin
    curr:='';
    for j:=i downto 1 do
      begin
        curr:=s[j]+curr;
        if frac(sqrt(strtoint(curr)))=0 then
          begin
            b:=true;
            if sqrt(strtoint(curr))>max then max:=round(sqrt(strtoint(curr)));
          end;
      end;
 end;
if b then writeln(max) else writeln('0');
end.

Пример ввода 1:
164
Пример вывода 1:
8
Пример ввода 2:
523
Пример вывода 2:
0