найти ошибку почему оно не считывает сколько раз было введено число 4. Создать и законспектировать в тетрадь программу: пользователь вводит 8 чисел, определите, сколько раз он ввел число 4.

program z3;

var a,b,i:integer;

begin

b:=0;

writeln('Введите 8 чисел');

for i:=1 to 8 do

begin

readln(a);

if a = 4 then b:=b+1

end;

writeln('Число 4 было введено ',b, ' раз')

end.

Объяснение:

Цикл со счётчиком:

1) ввод числа

2) проверка условия если число равно 4, то переменную b увеличиваем на 1

Вывод b