Вводится два любых числа а и b. Вычислить произведение чисел кратных 5,от меньшего из введенных чисел,до большего. Если числа a и b одинаковы или в данном диапазоне таких чисел нет, то в ответе написать «нет»

Решить в Паскале

begin var (a,b) := ReadInteger2; var r := (a..b).Where(x -> x mod 5 = 0); if (a=b) or (r.Count = 0) then Print('нет')  else Print(r.Product) end.

Пример работы: