t_14_34_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
не используя in описать функцию наличие(маг,а,б,с), которая по информации из массива маг присваивает а,в,с след. значения:
а-продукты, которые есть везде
в-хотя бы в одном
с-нигде}
program t_14_34_v1 (input,output);
type продукт=(хлеб,масло,молоко, мясо, рыба, соль, сыр, колбаса, сахар, чай, кофе);
     ассортимент = set of продукт;
     магазины = array [1..10] of ассортимент;
function exist(shop:магазины; a,b,c:ассортимент);
   var i:integer;
   begin
      a:=[хлеб..кофе];b:=[];c:=[хлеб..кофе];
      for i:=1 to 10 do
      begin
          a:=a*shop[i];
          b:=b+shop[i];
      end;
      c:=c-b;
      writeln(a);
      writeln(b);
      writeln(c);
   end;
var mag:магазины; stock1,stock2,stock3: ассортимент; i:integer;
begin

   mag[1]:=[хлеб, колбаса, сахар, чай, кофе];
   mag[2]:=[хлеб,масло,молоко, мясо, рыба];
   mag[3]:=[хлеб,мясо, рыба, чай, кофе];
   mag[4]:=[хлеб,масло,молоко, мясо, рыба,  сыр, колбаса, сахар, чай, кофе];
   mag[5]:=[хлеб,масло,молоко, мясо, рыба,  сыр, колбаса, сахар, чай, кофе];
   mag[6]:=[хлеб,масло,молоко, мясо, рыба, сыр, колбаса, сахар, чай, кофе];
   mag[7]:=[хлеб,масло,молоко, мясо, рыба, сыр, колбаса, сахар, чай, кофе];
   mag[8]:=[хлеб,масло,молоко, мясо, рыба,  сыр, колбаса, сахар, чай, кофе];
   mag[9]:=[хлеб,масло,молоко, мясо, рыба,  сыр, колбаса, сахар, чай, кофе];
   mag[10]:=[хлеб,масло,молоко, мясо, рыба, сыр, колбаса, сахар, чай, кофе];
   exist(mag,stock1,stock2,stock3);
end.