Составить графический алгоритм для определения находиться ли число С между А и В

Все расчеты будем делать в битах
1 байт это 8 бит
512*8*2847= 11 661 312 бит всего на дискете

а)
8*8 000*1=64 000 бит за одну секунду (единица это канал звука)
11 661 312/64 000=182.208 отбросил дробную часть и получим 182 секунды звука низкого качества это 3 минуты 2 секунды

б)
16*48 000*2=1 536 000
двойка в примере это два канала звука т.е. стерео.
11 661 312/1 536 000=7.592
отбросил дробную часть и получим 7 секунд звука высокого качества.

в ответ записать или точный расчет вместе с дробной часть или примерный т.е. целые секунды.

С ЦИКЛАМИ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write ('введите a1: ');
Readln(a) ;
Write(' введите шаг арифм. прогресии: ');
Readln(d);
Write('введите номер члена арифм. прогресии:');
Readln(n);
For i:=1 to n do a:=a+d;
Writeln(n, ' член арифметической прогресии равен : ', a);
End.
БЕЗ ЦИКЛОВ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write ('введите a1: ');
Readln(a) ;
Write(' введите шаг арифм. прогресии: ');
Readln(d);
Write('введите номер члена арифметической прогресии: ');
Readln(n);
Writeln(' ответ: ', a+d*(n-1));
End.