Информатика. Программа паскаль

var S,D,L: real;

begin

readln(S);

D:=sqrt((4*S)/3.14);

L:=3.14*D;

writeln('D = ',D:0:2);

writeln('L = ',L:0:2);

end.