<span>const
r=6350;
var
h,l: real;
begin
write('Введите значение высоты h (км): ');
readln(h);
writeln('До линии горизонта ',sqrt(sqr(r+h)-sqr(r)):0:3,' км');
readln;
end<span>.</span></span>
Var day:byte;
begin
randomize;
day:=random(24);
case day of
5..11:writeln('Доброго утра');
12..17:writeln('Доброго Дня');
18..22:writeln('Доброго Вечера');
23, 1..4:writeln('Доброй ночи');
end;
writeln(day);
<span> end. </span>
Поворот в лево
идти 1 шаг
повернуть в право
идти 1 шаг
повернуть в право
идти 3 шага
повернуть в право
идти 3 шага
повернуть в право
идти 1 шаг