Ты где учишься??????????????????????????????????????????
//Pascal ABC.NET v3.0 сборка 1111
var
ar:array of integer;
n:integer;
begin
n:=0;
setlength(ar,n+1);
readln(ar[n]);
while ar[n]<>0 do
begin
inc(n);
setlength(ar,n+1);
readln(ar[n]);
end;
sort(ar);
ar.Print(' ');
<span>end.</span>
Ответ: В 1гб - 1024мб, значит в 320гб - 320гб*1024мб=327680-мб
Ну, я вопрос не так хорошо понял. Думаю что в *С. *С = градусы Цельсия.