РЕШИТЕ ПОЖАЛУЙСТА!!!!!!!!!! Посудина цилиндрической формы заполнена до краёв водой, d=1200кг/м3. Составить программу которая вычисляет: а)давление жидкости на дно посудины по формуле p=dgh(g=9,8м/с2) б)массу жидкости в каждой п...

а) 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.