143,511(10) = 1*10^2+4*10^1+3*10^0+5*10^-1+1*10^-2+1*10^-3
143511(8) = 1*8^5+4*8^4+3*8^3+5*8^2+1*8^1+1*8^0
143511(16) = 1*16^5+4*16^4+3*16^3+5*16^2+1*16^1+1*16^0
1435,11(8) = 1*8^3+4*8^2+3*8^1+5*8^0+1*8^-1+1*8^-2
Сложно понять, что нужно было сделать автору программы, но в любом случае сделано криво. Ввод и вывод организованы так, что выводимые значения сливаются с вводимыми, образуя непонятные комбинации.
Программа запрашивает некоторое значение "В", на превышение которого потом она реагирует один раз. Затем запрашивается количество чисел, которые надо ввести. Эти числа вводятся в цикле (почему это цикл while - непонятно, обычно подобные вещи делают в цикле for) и тут же выводится, т.е. программа повторяет введенное число. В случае, когда введенное число первый раз превышает "В", перед этим числом выводится значение "В". Именно для этого использована логическая переменная bol: после возникшего превышения она принимает значение false и отключает дальнейшую проверку на превышение.
Var a,b,c:array[1..9] of Longint;
i,k:longint;
begin
for i:=1 to 9 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
read(b[i]);
end;
for i:=1 to 9 do
begin
c[i]:=a[i]+b[i];
write(c[i],' ');
end;
<span>end.</span>
Извини здесь не получиться написать посмотри примеры в учебнике