Яхочу спать! считая, что земля — идеальная сфера с радиусом r = 6350 км, определить расстояние до линии горизонта от точки с высотой над землей, равной 1, 2, 10 км

const   r=6350;
var   h,l: real;
begin   write('Введите значение высоты h (км): ');  
readln(h);  
writeln('До линии горизонта ',sqrt(sqr(r+h)-sqr(r)):0:3,' км');  
readln;
end.