ЗАДАЧА:
В вибрационное загрузочное устройство (ВЗУ) засыпают партию из n деталей исполнения А и В, которые могут иметь дополнительное отверстие. ВЗУ осуществляет первичное разделение деталей на два патока по исполнениям (А или В), которые в свою очередь, направляются в два других ВЗУ, осуществляющих сортировку деталей на две группы – с отверстиями и без отверстий. Задайте количество деталей, их параметры и рассортируйте их на четыре группы.

ТЕКСТ ПРОГРАММЫ:
program lab6;
uses crt;
var A, B, C, D : array [1..15] of integer;
I, n, od, id : integer;
begin
clrscr;
writeln (‘Введите количество деталей:’)
readln (n);
for i:=1 to n do
begin
writeln (I,’ – деталь:’);
writeln;
writeln (‘Исполнение: А – 1; В – 2:’);
readln (id);
writeln (‘Отверстие: есть – 1; нет – 2:’);
readln (od);
if (id=1)and(od=1) then a:=1;
if (id=1)and(od=2) then b:=1;
if (id=2)and(od=1) then c:=1;
if (id=2)and(od=2) then d:=1;
end;
write (‘Детали исполнения А с отверстием:’);
for i:=1 to n do
if (a:=1) then write (‘ ‘,i);
writeln;
write (‘Детали исполнения А без отверстия:’);
for i:=1 to n do
if (b:=1) then write (‘ ‘,i);
writeln;
write (‘Детали исполнения B с отверстием:’);
for i:=1 to n do
if (c:=1) then write (‘ ‘,i);
writeln;
write (‘Детали исполнения B без отверстия:’);
for i:=1 to n do
if (d:=1) then write (‘ ‘,i);
writeln;
end.