Program z3;
  Var y: array [1..15] of real;
      g: array [1..20] of real;
      i,d: integer; sum, sum_2: real;
Begin
  writeln('Введите оплату труда за день'); read(d);
  for i := 1 to 15 do
    y[i] := random (30) * d * 0.8;
    
  for i:=1 to 20 do
    g[i] := random (30) * d * 0.8;
  
  for i:=1 to 15 do
  begin
    writeln('Сотрудник y_',i,' - ',y[i]);
    sum:= sum + y[i];
  end;
  writeln;
  writeln('Сумма отдела y - ', sum);
  writeln;
  for i:=1 to 20 do
  begin
    writeln('Сотрудник g_',i,' - ',g[i]);
    sum_2:= sum_2 + g[i];
  end;
  writeln;
  writeln('Сумма отдела g - ', sum_2);
  writeln;  
  
End.