uses crt;   
var a, b, c, i, k : integer;   
BEGIN   
write ('vvedite diapazon c > b: ');   
read (b, c);   
write ('vvedite 4islo dlya proverki delimosti a = ');   
read (a);   
writeln ('4isla, kratnie ', a);   
k := 0;   
for i := b to c do   
if ( i mod a = 0 ) then   
begin   
k := 1;   
write (i,' ');   
end;   
if ( k = 0 ) then write ('takih 4isel net')   
END.