Дана площадь S круга. Отыскать его поперечник D и длину L

const
pi = 3.14;

var
S, D, L: real;

begin
write(Введите площадь круга: S = );
readln(S);
D := 2 * sqrt(S / pi); lt;-- Вычисляем поперечник круга
L := pi * D; lt;-- Вычисляем длину окружности
writeln(Итог:);
writeln( D = , D:0:2); lt;-- Выводим поперечник на экран
writeln( L = , L:0:2); lt;-- Выводим длину на экран
readln
end.