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

program okr;
const pi = 3.14;
var d, L: real;
begin
    write('Введите диаметр окружности : ');
    readln(d);
    L := pi * d;
    write('Длина окружности -- ', L);
end.