По братски, 303(4) - 30(6)
202(6) + 200(8)
а3(16) + 37(8)

1.она должна вернуть мне эту книгу завтра. 2.алина положила свою сумку в шкаф. 3.я люблю играть на скрипке. 4.моя сестра участвовала в соревнованиях. 5.мне нужно посоветоваться с другом. 6.нас пригласили на выставку.

1. эту книгу. 2. свою сумку. 3. скрипке. 4. соревнованиях. 5. другом. 6. выставку.

var

mas : array[1..15] of integer;

i: integer;

 

begin

 

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

 

end;

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.