Какое минимальное основание имеет система счисления если в ней записаны числа 1,9,8,0?

var i: integer;

begin

for i: =1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

напиши само ,я

только  25-18=7 человек

только французский 27 - 18 = 9 человек

ну а на вопросы не отвечу =))