Дан диаметр окружности d. Найти ее длину L = π·d. В качестве значения π использовать 3.14. (программа Паскаль)

const
pi = 3.14;

var
d, L: real;

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