Вычислить по заданному радиусу и признаку k, длину окружности (k=1), площадь круга (k=2), объем шара (k=3)
Var k: integer; r: real; begin read(r, k); if k = 1 then writeln(2 * pi * r); if k = 2 then writeln(pi * sqr(r)); if k = 3 then writeln(4 / 3 * pi * sqr(r) * r); end.