Const N=11;
var i,d,k:integer;
begin
k:=0;
repeat
k:=k+N;
d:=0;
for i:=2 to 10 do if k mod i = 1 then d:=d+1;
until (d=9) or (K>32000);
if d=9 then writeln('Искомое число = ',K)
else writeln('Число не найдено');
<span>end.</span>
52 54 56 58 60
62 64 66 68 70
72 74 76 78 80
82 84 86 88 90
92 94 96 98 100
Чтобы найти время передачи нужно размер файла разделить на скорость передачи файлов
t=3600*2^10*2^3/192*2610*2^3= 3600/192=18,75секунд
примерно 19 секунд