Begin4. Дан диаметр окружности d. Найти ее длину L=pi·d.
var d, l: real;
begin
  write('Введите диаметр окружности ->');
  readln(d);
  l:=pi*d;
  writeln('Длина окружности = ', l:6:2);
end.