1. Скорость звездолета 100 км/ч…

1. constlightspd=299792458; var spd,elt: long; dist,els: extended; beginelt: =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. Не знаю, тут нужна геометрия