Program Series17;

var

a, B, N, i:integer;

bol:boolean;

begin

i:=0;

n:=0;

bol:=true;

Writeln ('Введите число B') ;

readln (B) ;

Writeln ('Введите число N') ;

Readln (N) ;

Writeln ('Введите ', N,' целых чисел.') ;

While i < n do

begin

Read (a) ;

if (a>b) and (bol) then begin Write (' ', b) ; bol:=false; end;

Write (' ', a) ;

inc (i) ;

end;

end.

причем здесь bol и как он работает объясните

Сложно понять, что нужно было сделать автору программы, но в любом случае сделано криво. Ввод и вывод организованы так, что выводимые значения сливаются с вводимыми, образуя непонятные комбинации.

Программа запрашивает некоторое значение "В", на превышение которого потом она реагирует один раз. Затем запрашивается количество чисел, которые надо ввести. Эти числа вводятся в цикле (почему это цикл while - непонятно, обычно подобные вещи делают в цикле for) и тут же выводится, т. е. программа повторяет введенное число. В случае, когда введенное число первый раз превышает "В", перед этим числом выводится значение "В". Именно для этого использована логическая переменная bol: после возникшего превышения она принимает значение false и отключает дальнейшую проверку на превышение.

Var

a, b, n, i:integer;

bol:boolean;

begin

//Инициализируем переменные

i:=0;

n:=0;

bol:=true;

//Осуществляется ввод

Writeln ('Введите число B: ') ; readln (b) ;

Writeln ('Введите число N: ') ; Readln (n) ;

Writeln ('Введите ', n,' целых чисел.') ;

//цикл (с пред условием) будет повоторятся n раз

While i < n do

begin

//Осуществляется ввод с клавиатуры

Read (a) ;

//Проверяем является (A больше B) и (bol = true)

if (a>b) and (bol) then

//Если является

begin

//выводит значение B через пробел

Write (' ', b) ;

//и присваивает bol = ложь

bol:=false;

end;

//выводит значение А через пробел

Write (' ', a) ;

//инкрементирует i, тоесть i:=i+1

inc (i) ;

end;

end.