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

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)Аналогично пятой.