Напишите код на языке Pascal
Сергей живёт на окраине города и поэтому, чтобы добраться до офиса, ему приходится каждый день проезжать n станций метро. Оказалось, что на каждую станцию метро тратится t1 минут. Но не так давно Сергей купил свою первую машину и теперь он тратит на дорогу гораздо меньше времени! На пути к офису расположено k кварталов (каждый машина проезжает за t2 минут) и m светофоров (на каждом машина стоит t3 минут) Сергею стало интересно на сколько быстрее его новый передвижения ему ответить на этот вопрос!
Формат ввода
В первых трёх строках через записаны целые числа n, k и m - количество станций, кварталов и светофоров соответственно (0 ≤ n, k, m ≤ 1000). В следующих трех строках целые числа t1, t2 и t3 - время, которое тратится на преодоление одной станции метро, квартала и светофора соответственно (0 ≤ t1, t2, t3 ≤ 1000).
Формат вывода
Выведите одно число - на сколько быстрее Сергей добирается от дома до своего офиса. Если же передвижения на машине дольше чем на метро, то выведите -1.
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.
