Написать программку на Паскале: Дана S круга. Найти его диаметр D

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.