Воспользуйтесь законом музыкальности вселенной тициуса-боде для определения относительного расстояния до нептуна:
r= 0.4+0.3*2^n
(расчеты производить с точностью до первого десятичного знака, в качестве разделителя целой и дробной части числа использовать точку)

var
result,index:real;
begin
index:=0.1;
result:=1+sin(index);
while index<=10 do
begin
index:=index+0.1;
result:=result*(1+sin(index));
end;
Writeln(result:4:25);
end.