на паскале?
да
Var L,D:real; begin writeln('введи диаметр'); readln(d); L:=pi*D; writeln(L:2:3); readln; end.
спасибо!