Друзья решили зашифровать сообщения из английских букв, записывая вместо каждой буквы её номер в алфавите (без пробелов). Номера букв даны в таблице:
A1 F6 K11 P16 U21
B2 G7 L12 Q17 V22
C3 H8 M13 R18 W23
D4 I9 N14 S19 X24
E5 J10 O15 T20 Y25
АЛФАВИТ Z26

Даны четыре шифровки: 189195, 1621185, 61205, 815165.Только одна из них расшифровывается единственным Найдите её и расшифруйте.

begin

 var (n, m) := ReadInteger2('Количество строк и столбцов в матрице:');

 Writeln('*** Исходная матрица ***');

 var y := MatrRandom(n, m, -99, 99);

 y.Println(4);

 Writeln(4 * y.ColCount * '-');

 Println('Количество подолжительных элементов:',

     y.ElementsByRow.Where(t -> t > 0).Count);

 Println('Произведение отрицательных элементов:',

     y.ElementsByRow.Where(t -> t < 0)

     .Aggregate(BigInteger(1), (p, q)-> p * q))

end.

Напишите код на языке Pascal

Сергей живёт на окраине города и поэтому, чтобы добраться до офиса, ему приходится каждый день проезжать n станций метро. Оказалось, что на каждую станцию метро тратится t1 минут. Но не так давно Сергей купил свою первую машину и теперь он тратит на дорогу гораздо меньше времени! На пути к офису расположено k кварталов (каждый машина проезжает за t2 минут) и m светофоров (на каждом машина стоит t3 минут) Сергею стало интересно на сколько быстрее его новый передвижения ему ответить на этот вопрос!

Формат ввода

В первых трёх строках через записаны целые числа n, k и m - количество станций, кварталов и светофоров соответственно (0 ≤ n, k, m ≤ 1000). В следующих трех строках целые числа t1, t2 и t3 - время, которое тратится на преодоление одной станции метро, квартала и светофора соответственно (0 ≤ t1, t2, t3 ≤ 1000).

Формат вывода

Выведите одно число - на сколько быстрее Сергей добирается от дома до своего офиса. Если же передвижения на машине дольше чем на метро, то выведите -1.