Задание Вычисли общую площадь приведенных ниже 3D-моделей (рис. 12,
13).
Рис. 12. 3D-модель
Рис. 13. 3D-модель
с заданными измерениями

10*10*1=100 b=12,5 b

составим двоичную матрицу:

                        молоко       лимонад         квас                   вода

бутылка               0                   1                 0                     0

стакан                 0                   0                 0                     1

кувшин                 1                   0                 0                     0        

банка                   0                   0                 1                     0

в кувшине - молоко

в бутылке - лимонад

в банке - квас

в стакане - вода

ваня на п

саша на в

коля на с

петя на к 

var a: array [1..16] of integer;

i,s,c,d: integer;

begin

  randomize;

  read(c,d);

  for i : = 1 to 16 do begin

      a[i]: = random(d+c) - c;

      if a[i]> 0 then s: = s + a[i];

  end;

  writeln(s);

end.