Var
a,b,c:integer;
begin
writeln("в каком году был основан город Минск ?");
writeln("<span>в 1067 году, в 1993 году, в 1147 году. В ответе просто число.</span>");
readln(a);
if a = 1067 then writeln("верно")
else writeln("Ошибка")
Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end
Частота дискретизации 44000 предполагает хранение 44000 отсчетов в секунду. При разрядности 16 бит = 16/8 = 2 байта, потребуется 44000·2 = 88000 байт для хранения информации за 1 секунду. А за минуту - в 60 раз больше, т.е. 60·88000 байт = 5280000 байт = 5280000/1024 Кбайт = 5156.25 Кбайт = 5156.25/1024 ≈ 5.035 Мбайт.
Тогда на диске объемом 700 Мбайт поместится примерно 700/5.035 = 139 минут записи.