Фаниль собирается отправиться к бабушке в деревню. Деревня бабушки Фаниля очень далеко от Казани. Возможно, ему придётся ехать на нескольких автобусах. Фаниль знает информацию
о всех m автобусах и n станциях в округе. Каждый i-ый автобус едет без остановок от станции ai
до станции bi и путь этот длины pi
. Автобус едет только в одном направлении. Длиной пути от
Казани до деревни Фаниль называет суммарную длину всех путей автобусов, на которых он
ехал. При этом если Фаниль доехал до какой-нибудь остановки, он на ней же должен сесть на
следующий автобус, пока не доберется до деревни Фанилю найти длину
кратчайшего пути из Казани до деревни бабушки. Если таких путей несколько, выберите путь,
который состоит из максимального количества пересадок, чтобы Фаниль смог полюбоваться
красотой каждой станции.

Увы, нет.

...var Y:array[1..N] of real... ошибка в написании, компилятор сообщит, что тип параметра не может быть описанием массива с границами. Пример:

var a:array [1..n] of real;                                                                                  Procedure ab(var b:array [1..n] of real);

К сожалению переменная и формальный параметр не одного типа.

Стоит использовать Type:

type ba= array [1..n] of real;                                                                                  var a: ba;                                                                                                   Procedure ab(var b:ba);

t ≈ 17c

Объяснение:

Ну, первым делом нам надо перевести 259 килобайт в биты, мы знаем, что в одном килобайте 1024 байта, а в одном байте 8 бит, то есть:

259 * 1024 * 8 = 2121728 бит

Это мы узнали объём сообщения в битах, теперь найдем время, которое понадобится для передачи этого сообщения с модема, с пропускной в 128000 бит/с. "Бит/с" нам показывает, сколько бит информации может передать этот модем за 1 секудну, ну это логично, теперь чтобы найти время, нам надо объём сообщения поделить на пропускную модема:

t = 2121728 бит / 128000 бит/с ≈ 16,6с

Ах, да, надо дать ответ целым числом, тогда t ≈ 17c