Өңдеудің кіріктірілген ортасында битпен берілген ақпарат көлемін байтқа, килобайтқа және мегабайтқа ауыстыру бағдарламасын құру керек

a. Бағдарламаның интерфейсін өңдеудің кіріктірілген ортасында қолданушыға түсінікті болатындай құрыңыз

b. Интерфейсте қолданылған 2 компонент атауын және қызметін атаныз​

Возьмем для начало самое большое шестизначное число, это 999999
Что бы условие выполнялось и при этом число-результат было самым большим будем смотреть каждый элемент условия:
Есть хотя бы одна тройка и нет восьмерок -  999993
Есть хотя бы одна тройка и не больше двух девяток - 99883
Есть ровно две единицы и нет восьмерок - 999911
Есть ровно две единицы и не больше двух 9 - 998811

999993 - и есть самое большое число выполняющее условие (Есть хотя бы одна тройка ИЛИ Есть ровно две единицы) И (Нет восьмерок ИЛИ Не больше двух девяток)

Var
d:integer;
const
a=650;
b=1;
c=1000;
begin
write('Введите объём видеофайла в мегабайтах: ');
readln(d);
if d>a then write('Видеофайл не помещается на  носитель информации"А"!',#10) else
writeln('Памяти хватает для записи на носитель "А"! ',#10);
if d>b then write('Видеофайл не помещается на  носитель информации"B"!',#10) else
writeln('Памяти хватает для записи на носитель "B"! ',#10);
if d>c then write('Видеофайл не помещается на данный носитель информации"С"!',#10) else
writeln('Памяти хватает для записи на носитель "C"! ',#10);
readln;
end.