Втаблице записаны названия 18 компьютерных клавиш.

Del, insert, print..

//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(=0 then           begin             b: =true;             if sqrt(strtoint(curr))> max then max: =round(sqrt(strtoint(;           end;       end;   end; if b then writeln(max) else writeln('0'); end. пример ввода 1: 164 пример вывода 1: 8 пример ввода 2: 523 пример вывода 2: 0

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n='),1,50); a.println;   var b: =arrrandom(readinteger('m='),1,50); b.println;   var p: =b.findindex(x-> x=a.max)+1;   if p> 0 then writeln('искомый элемент равен ',p)   else writeln('элемент не найден') end. пример n= 10 37 50 6 5 5 8 5 37 26 31 m= 15 25 31 28 44 16 30 29 3 40 24 50 12 12 32 5 искомый элемент равен 11