Напечатайте все целые числа от A до B, заканчиваются цифрой 5 или цифрой 0.

Program prog;
uses crt;

var i,a,b : integer;

begin
clrscr;

write('A = ');
readln(a);
write('B = ');
readln(b);

for i:=A to B do
 if (i mod 5) = 0 then
 write(i,'   ');
end.