Дан диаметр окружности d. Найти ее длину L = pi*d — Pascal(Паскаль)

Program Begin4;

Var
  d, L: Real;

Begin
  ReadLn(d);
  WriteLn('L = ', d * pi:6:3);
  ReadLn;

End.