Var a,b,i,k:integer;
begin
readln(a);
readln(b);
k:=0;
if (a>b) or (b>30000) or (a<1) then writeln('данные введены некорректно') else begin
for i:=a to b do
if i mod a=0 then k:=k+1;
writeln(k);end;end.
Винчествер!!!!!!!!!!!!!!!!!!!!!
40*1024=40960 - Мбайт на жестком диске
40960/600 = 68,26, округляем в большую сторону, т.е
69 дисков потребуется