1 2 5 9 основание классификации

mas=array [1..100] of integer;

var

b:mas;

p,i,n:integer;

procedure vvod (x:mas;k:integer);

var i,p:integer;

begin

for i:=1 to n do begin

write('Vvedite chislo: ');

readln(x[i]);

end;

for i:=1 to n do

write(x[i]:3);

for i:=n downto 1 do

if x[i]<0 then

p:=i;

writeln;

write('= ',x[p-1]);

writeln;

readln;

end;

begin

clrscr;

write('Vvedite kol-vo chisel: ');

readln((n));

vvod (b,n);

readln;

end.

Сами формулы:

1.S=ah/2

2.S=1/2ab sin C

3.S=sqrt(p(p-a)(p-b)(p-c))

Подсказка: ошибка связана с "writeln"

Написать программу на, которая определяет неизвестное основание системы счисления.

100 и 1 неправильно.Почему 100, 10 и 1
например 10 основание 10,тогда почему там 100 и 1.

счисления с основанием 16.

12012(с основанием 3)+10302(с основанием 4)=

всего раз встречается цифра 1 в записи чисел 12, 13, 14, …, 31 в системе счисления с основанием 5