Вычислить по заданному радиусу и признаку 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.