Вычислить длину окружности радиуса x. В PascalABC. NET

Program n_1;

var x:real;

begin

   readln(x);

   x:=2*PI*x;

   writeln(x:0:5);

end.