Найти произведение чисел кратных 5 и неоканчивающихся 0 на отрезке…

var a, b: integer; begin write ('a='); readln (a); write ('b='); readln (b); writeln ('Числа кратные 5 и не оканчивающиеся на 0 на отрезке от ', a, ' до ', b); for a: =a to b do if abs (a mod 10)=5 then write (a, '); writeln; end.