Из точки А, лежащей на окружности, проведен перпендикуляр AF к прямой, содержащей диаметр CD этой окружности. Вычислите длину отрезка FD, если радиус окружности равен 8 см, CD = 2AD.

Var
a:array[1..1000]of integer;
i,k:integer;
begin
for i:=1 to 20 do
a[i]:=random(20)-10;
for i:=1 to 20 do
write(a[i],' ');
for i:=1 to 20 do begin
if (a[i]<0)and(a[i]>(-5))
then k:=k+1;
end;
writeln;
writeln(k);
end.