uses crt; var r,h:integer; begin write('Введите радиус и высоту конуса: '); read(r,h); writeln('S = ',pi/3*sqr(r)*h:0:2); end.