Запись числа 23 в системе счисления с основанием n выглядит так: 212. укажите основание n этой системы счисленияжелательно с подробным решением) нужно

// pascalabc.net 3.1, сборка 1214 от 09.04.2016 function automorph(n: integer): boolean; begin   var s1: =n.tostring;   result: =(s1=(n*n).tostring.right(s1.length)) end; begin   var a,b: integer;   write('введите а и b: '); read(a,b);   for var i: =a to b do       if automorph(i) then print(i) end. тестовое решение: введите а и b: 1 10000 1 5 6 25 76 376 625 9376 попробовал переписать функцию в более примитивный вид. по-моему, она не стала проще, только function automorph(n: integer): boolean; begin   var s1: =inttostr(n); // n переводим в строковое представление   var s2: =inttostr(n*n); // n*n переводим в строковое представление   var l1: =length(s1); // длина строки s1   s2: =rightstr(s2,l1); // правые l1 символов из s2   result: =(s1=s2) end;

//pascal abc.net v3.1 сборка 1172 var   s,sr: string;   i,j,n: integer;   pr: array of char=('.',',','; ',': ','! ','? '); begin   readln(s); s: =s.trim; var ars: =s.towords(); s: =''; for i: =0 to ars.length-1 do s+=ars[i]+' '; s: =s.trim; i: =0; while i< > s.length do begin inc(i); if (s[i] in pr) and (s[i-1]=' ') then delete(s,i-1,1); end; i: =0; while i< > s.length-1 do begin inc(i); if (s[i] in pr) and (s[i+1]< > ' ') then insert(' ',s,i+1); end; s: =s.trim; writeln(s); end. пример ввода: , , , ,, много слов. пример вывода: , , , , , много слов.