var
{Koonuse ruumala ja pindala arvutamine.}
r,h,m,vastus1,vastus2:real;
vastus:string;
pii:real;
begin
repeat
writeln('Sisesta koonuse raadius');
readln(r);
writeln('Sisesta koonuse k6rgus');
readln(h);
m:=sqrt(sqr(r)+sqr(h));
pii:=3.1415927;
vastus1:=(1/3*pii*sqr(r)*h);
vastus2:=(pii*sqr(r)+pii*r*m);
writeln('Koonuse ruumala on ' ,vastus1:5:2);
writeln('Koonuse pindala on ' ,vastus2:5:2);
writeln('  Kas soovid veel arvutada ?');
readln(vastus);
until (vastus='ei');
readln;
end.