В чем именно проблема?
Рисуешь таблицу, первый столбик станции (Откуда и докуда) , второй столбик время в пути. Я так понял задание
Можно!
............................................................................
Нет, нельзя так как форматирование определяется милионом
Var
x,y:real;
begin
y:=8/5;{км в одной миле}
writeln('введите расстояние в милях');
readln(x);
writeln('расстояние в км: ', x*y);
end.
Program massive (input, output);
type vector=array[1..10] of integer;
var I:integer;
z:vector;
begin
for I:=1 to 10 do
read (z[I]);
for I:=1 to 10 do
if z[I]<0 then z[I]:=z[i]*(-1);
for I:=1 to 1o do
write (z[I], ' ');
end.