Используя графические средства, составьте и начертите модель системы «Предприятие». Покажите подсистемы для части элементов построенной системы. Отобразите связи структурных единиц системы. Для решения можно использовать графический или текстовый редактор

самый большой авал это будет танцоры. поменьше актёры,а самый маленький авал певцы. 2 элемента

14                                                                                                                       

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.

var s,a,i: real;

begin

  repeat

      writeln("вес следущего пасажира kg");

      read(a);

      s: =s+a;

      if s< 8000 then

          i: =i+1;

  until s> =8000

  writeln(i);

end.

var b,a,i: real;

begin

  read(a,b);

  repeat

      a: =a+a*0.03;

      i: =i+1;

  until a> =b

  writeln(i);

end.

var i,s: integer;

begin

  for i: = 1900 to 1999 do begin

        s: =s+365;

        if (i mod 400=0) or ((i mod 4 = 0) and (i mod 100< > 0)) then

            s: = s+1;

  end;

  writeln(s);

end.