[КуМир] Пригодность детали оценивается по размеру В, который должен находиться в пределах значений от А - b до А + b

алг 
нач
вещтаб a[1:100]
цел N,i,k
вещ r,b
нц
вывод "Введите количество деталей: "
ввод N
если N<1 или N>100 то вывод "Введите N от 1 до 100",нс
все
кц при N>=1 и N<=100
вывод нс,"Размеры деталей",нс
нц для i от 1 до N
a[i]:=10+rnd(5);
вывод a[i]:5:2," "
кц
вывод нс,"Введите стандартный размер детали:"
ввод r
вывод нс,"Введите отклонение от стандартного размера детали:"
ввод b
k:=0;
нц для i от 1 до N 
если a[i]<b-r или a[i]>b+r то k:=k+1
все
кц
если k=0 то вывод "Бракованных деталей нет"
иначе вывод "Количество бракованных деталей="
вывод k
все
 
кон