Program pr;
uses crt;
Var a, b, c, y:real;
Begin
Writeln('Введите a, b, c');
readln(a, b, c);
y:=exp(3*ln(b))+sqrt(c)-sqrt(a);
Writeln('y=', y);
readln;
end.
Машина или тебе как нужно ну машина модель...
Если это звуковой файл, то увеличить частоту дискретизации
512 бит = 512/8 байт = 64 байт
3072 Кб = 3072/1024 Мб = 3 Мб
2 Мб = 2*1024 Кб = 2048 Кб