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