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

Ira

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.