program mencari_bilangan_faktor;

program mencari_bilangan_faktor;
uses wincrt;
var a,b,i:integer;
jawab:char;
begin
repeat
begin
write('masukan bilangan faktor pertaman',':');readln(a);
write('masukan bilangan faktor kedua',':');readln(b);
if(0 = b)or((a-b)=1)or((b-a)=1)or((a-b)=2)or((b-a)=2)then
writeln('tidak ada hasilnya')
else if((b-a)>=3)then
begin
for i:=a+1 to b-1 do if (i mod 3 = 0)
and(i mod 5<>0)then write (i:4)
end
else
begin
for i :=a-1 downto b+1 do if (i mod 3=0)
and (i mod 5 <>0) then write (i:4);
end;
writeln;
writeln('mau mencoba lagi < y/t >');readln(jawab);
end;
until(jawab<>'y');
writeln('terima kasih telah mencoba program ini');
end.