Помогите, пожалуйста решить задачу!

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