Всистеме счисления с некоторым основанием десятичное число 21 записывается в виде 30. укажите это основание

30 по осн. x  = 21 по осн 10 3x + 0x = 21 x=7

Program bally; var a: array[1..250] of string; n,l,max,x,i,b,p: integer; z,k: string; begin max: =0; readln(n); for i: =1 to n do readln(a[i]); z: =a[1]; l: =pos(' ',z); delete(z,1,l); l: =pos(' ',z); delete(z,1,l); val(copy(z,1,pos(' ',z)-1),x,l); max: =max+x; delete(z,1,pos(' ',z)); val(copy(z,1,pos(' ',z)-1),x,l); max: =max+x; delete(z,1,pos(' ',z)); val(z,x,l); max: =max+x; for i: =2 to n do begin z: =a[i]; b: =0; l: =pos(' ',z); delete(z,1,l); l: =pos(' ',z); delete(z,1,l); val(copy(z,1,pos(' ',z)-1),x,l); b: =b+x; delete(z,1,pos(' ',z)); val(copy(z,1,pos(' ',z)-1),x,l); b: =b+x; delete(z,1,pos(' ',z)); val(z,x,l); b: =b+x; if b> max then max: =b; end; for i: =1 to n do begin z: =a[i]; b: =0; l: =pos(' ',z); p: =l; delete(z,1,l); l: =pos(' ',z); p: =p+l; delete(z,1,l); val(copy(z,1,pos(' ',z)-1),x,l); b: =b+x; delete(z,1,pos(' ',z)); val(copy(z,1,pos(' ',z)-1),x,l); b: =b+x; delete(z,1,pos(' ',z)); val(z,x,l); b: =b+x; if b=max then begin z: =a[i]; delete(z,p,length(z)-p+1); writeln(z); end; end; end. наверное

1) program n1; var a: array[1..10] of integer; i,sum: integer; begin randomize; sum: =0; writeln('исходный массив: '); for i: =1 to 10 do begin a[i]: =random(20)-10; write(a[i],' '); if a[i]< 0 then sum: =sum+a[i]; end; writeln; writeln('сумма: ',sum); end. 2) program n2; var a: array[1..10] of integer; i,k: integer; begin randomize; k: =0; writeln('исходный массив: '); for i: =1 to 10 do begin a[i]: =random(20)-10; write(a[i],' '); end; writeln; write('номера дел на 5: '); for i: =1 to 10 do if a[i] mod 5=0 then write(i,' '); end.