Ответ:

1. 

const

lightspd=299792458;

var 

spd,elt:long;

dist,els:extended;

begin

elt := 840; {время в секундах}

writeln(«Finding distance… «);

dist:=lightspd * elt;

writeln(«Founded. It is near «, dist);

writeln(«Finding starship elapsed time… «);

spd:=28;{скорость звездолёта в метрах в секунду}

els:=dist/spd;

writeln(«Starship elapsed time:», els);

readln;

end.

2. не знаю, тут нужна геометрия