К какому сектору экономики наиболее близка экономика информационной сферы?
1) к сектору услуг
2) к обрабатывающему сектору
3) к добывающему сектору
4) ни к одному из вышеперечисленных ​

//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

Ирина и Тимур = не информатика 

Таня и Саша = не информатика 

Тимур = боится физики 

Таня, Тимур = не литература, но плавают 

Тимур и Таня = поздравили математика 

Ирена = cожалеет мало времени на литературу

победители по: физике, математике, информатике, литературе и географии.

Коля -  информатика (Ирена и Тимур = учит, Камилла и Эльдар = интересуются) 

Тимур - не физика, не литература, не математика, не информатика, 

значит география 

Таня - не информатика, не литература, не математика, уже не география => Физика 

Ирена - не информатика, не физика, не география => Литература 

Коля - Математика