Ответ:
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. не знаю, тут нужна геометрия