Дан диаметр окружности d. Найти ее длину L = pi*d

В качестве значения pi использовать 3.14

Program Begin4;
Var
d,L:Real;
Begin
ReadLn(d);
WriteLn('L = ',d*pi:6:3);
ReadLn;
End.

автор: Sklyarov Sergej a.k.a. S9