Запиши программу на языке Паскаль для

Есть специальная функция для округления с точностью до определённого разряда: RoundTo(). Она объявлена в модуле Math.

var
   Res, Num : Extended;
begin
   //Округление до сотых долей:
   Res := RoundTo(Num, -2);
   //Округление до десятых долей:
   Res := RoundTo(Num, -1);
   //Округление до единиц:
   Res := RoundTo(Num, 0);
   //Округление до десятков:
   Res := RoundTo(Num, 1);
   //Округление до сотен:
   Res := RoundTo(Num, 2);
end;

Функция SimpleRoundTo() сходна с RoundTo() – различие лишь в округления последнего знака. SimpleRoundTo() округляет последнее число в большую сторону, а RoundTo() использует так называемое банковское округление, приводя число к ближайшему четному

18 кб=18432 байт
Вам следует уточнить о какой кодировке идёт речь.
Если Unicode, UTF-16 или ISO 10646:
1 символ=2 байта
18432/2=9216 символа
Если ASCII, UTF-8 или CP1251:
1 символ=1 байт
18432 символа
Безумный вариант для фриков, которые считают что 1 кб=1000 байт
18 кб=18000 байт (аж самого воротит)
Для Unicode и так далее:
9000 символов.
Для ASCII и так далее:
18000 символов.
Если даже это не просто попробуйте скопировать ответ, а не перепечатывать его.
Это странно.

О второй задаче:
Занято:
Фильм=1,12 ГБ=1145,8(с округлением) мб
Фото=1105,9 мб(тоже с округлением)
Отчёт=15,5 мб
Всего занято=2267,2 мб
Объём=16384 мб
Процент занятого: 13.8
Процент свободного: 86,2