В Юникоде = 512 символов;
В любой другой обычно 1024 символов.
A = в Edit1
b = в Edit2
Результат в Label1
var
a, b, c: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
Label1.Caption := FloatToStr((a + b) / 2);
end;
0.025 Гб = 0.025*1024 Мб = 0.025*1024*1024 кб = 0.025*1024*1024*1024 байт = 26843546 байт.
45000 Гц и 16 бит означают, что каждую секунду снимается 45000 значений амплитуды. каждое кодируется 16 битами = 2 байтами, таким образом объем одной секунды = 45000*2 = 90000 байт.
Посчитаем сколько секунд у нас в файле:
26843546/90000 = 298 секунд = 4 мин 58 сек
var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.