Дан поперечник окружности d. Найти ее длину L = d. В

const
pi = 3.14;

var
d, L: real;

begin
writeln(Введите диаметр окружности:);
write(d = );
readln(d); lt;-- Вводим поперечник
Вычисляем длину окружности:
L := pi * d;
Выводим итог с точностью 2 знака:
writeln(Длина окружности: L = , L:0:2);
readln
end.