Укажите наименьшее число из представленных чисел

A)var k,n:integer;
begin
read(k);
if k div 7=k/7 then n:=7 else
if k+1 div 7=k+1/7 then n:=6 else
if k+2 div 7=k+2/7 then n:=5 else
if k+3 div 7=k+3/7 then n:=4 else
if k+4 div 7=k+4/7 then n:=3 else
if k+5 div 7=k+5/7 then n:=2 else
if k+6 div 7=k+6/7 then n:=1;
writeln(n);
end.
б)var k,n:integer;begin
read(k);
if k-1 div 7=k-1/7 then n:=7 else
if k div 7=k/7 then n:=6 else
if k+1 div 7=k+1/7 then n:=5 else
if k+2 div 7=k+2/7 then n:=4 else
if k+3 div 7=k+3/7 then n:=3 else
if k+4 div 7=k+4/7 then n:=2 else
if k+5 div 7=k+5/7 then n:=1; 
writeln(n);
end.

А) V = D * t * i * k
V - информационный объем файла
D - частота дискретизации
t - время звучания
i - глубина кодирования 1 сигнала
k - количество каналов
D1 = 8 кГц = 8000 Гц
t = 1 мин = 60 секунд
k = 1 канал (моно-)
i1 = 16 бит = 2 байта
V1 = 8000 Гц * 60 c * 2 байта * 1 = 960000 байт = 937,5 килобайт = 0,91 мегабайт - информационный объем 1 звукового файла
D2 = 24 кГц = 24000 Гц
t = 1 мин = 60 секунд
k = 1 канал (моно-)
i2 = 16 бит = 2 байта
V2 = 24000 Гц * 60 c * 2 байта * 1 = 2880000 байт = 2812,5 килобайт = 2,75 мегабайт
- информационный объем 2 звукового файла
Детская песня - Колыбельная медведицы - 2,09 мегабайт меньше 2 объема на 0,66 Мб и больше 1 объема на 1,18 Мб
Песня Валентины Толкуновой Тебя любила - 1,05 Мб больше 1 объема на 0,14 Мб, меньше второго объема на 1,7 Мб