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