{* Длина окружности *}

Unit PLOSHAD;
Interface
Implementation
Begin
 writeln('Дан диаметр окружности d. Найти ее длину L = ?*d. В качестве значения ? использовать 3.14. ');
End.

Program ploshad;

Uses ploshad.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  L : real;
  d : real;
Const {* Постоянные значения *}
  pi = 3.14;
Begin
  Clrscr; {* Очищаем экран *}
  Writeln('введите диаметр окружности');
  readln(d);
  L := pi * d;
  Writeln('Длина окружности равна ', L : 5 : 3);
  readln; {* Ждем нажатия Enter *}
End.