Program primer_1;
var v,a,b,c,r,h:real;
num:integer;
begin
writeln('Введите значение num');
writeln('num='); readln(num);
case num of
1: begin writeln('Введите значения a,b,c');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
v:=a*b*c;
writeln('v=',v:8:3);
end;
2: begin write('Bвежите значения r');
write('r='); readln(r);
v:=4/3*pi*power(r,3);
writeln('v=',v:8:3);
end;
3: begin write('Введите значения r,h');
write('r='); readln(r);
write('h='); readln(h);
v:=1/3*pi*sqr(r)*h;
writeln('v=',v:8:3);
end;
else write('Введено число вне диапазона 1-3!');
end;
end.