Program zadacha;
const pi=3.14;
uses crt;
var S,r,l,V,h:real;
BEGIN
clrscr;
write ('Vvedite visoty:');
readln (h);
write ('Vvedite radius:');
readln (r);
write ('Vvedite obrazujuschujy:');
readln (l);
S:=pi*r*l;
V:=pi*r*2*h/3;
writeln ('Ploschad ravna=', S:3:2);
writeln ('Objem raven=', V:3:2);
readln;
end.