Срочно помогите сделать

Question

Срочно помогите сделать

---

Comments

с 4 по 7

Answer 1

4) program chetverochka;
var
r,h:real;
const p=3.14;
begin
writeln('vvedite H');
readln(h);
writeln('vvedite R');
readln(r);
writeln('V= ', r*r*p*h);
end.
5)program piramidka;
var
s,h:integer;
begin
writeln('vvedite S osnovaniya');
readln(s);
writeln('vvedite h');
readln(h);
writeln('V= ', s/3*h);
End.
6)Аналогично пятой.