Как упорядочить единицы измерения : 100 м бит, 50 к байт, 1 г байт в порядке возростания?

Для начала  мы должны перевести все единицы измерения в одну. к примеру в мбит 50кбайт=400000бит=0,4мбит 1гбайт=10000000бит=100мбит ответ записывается в единицах измерениях которые даны в условии  ответ: 50кбайт 100мбит 1гбайт 

Const   gl=['а','е','ё','и','о','у','ы','э','ю','я',           'а','е','ё','и','о','у','ы','э','ю','я']; var   s,fam,otch: string;   i,j,n,ngl: integer; begin   writeln('введите через один пробел фамилию, имя и отчество');   readln(s);   fam: =''; i: =1; n: =length(s);   repeat       fam: =fam+s[i]; i: =i+1   until s[i]=' ';   otch: =''; j: =n;   repeat       otch: =s[j]+otch; j: =j-1   until s[j]=' ';   { im: =copy(s,i+1,j-i-1); так можно получить имя }   ngl: =0;   for i: =1 to n do       if s[i] in gl then ngl: =ngl+1;   writeln('длина введенной строки в символах равна ',n);   writeln('количество гласных букв в строке равно ',ngl);   writeln('введено отчество: ',otch);   writeln('количество букв в фамилии равно ',length(fam)) end. тестовое решение: введите через один пробел фамилию, имя и отчество иванов петр сергеевич длина введенной строки в символах равна 21 количество гласных букв в строке равно 8 введено отчество: сергеевич количество букв в фамилии равно 6

№1-2 var x, t, f, l, sum, sum2: integer; begin write('введите x: '); readln(x); if ( x < 10000 ) or ( x > 99999 ) then writeln('ошибка. число не пятизначное! ') else begin l : = x mod 10; t : = (x div 1000 mod 10); sum : = l + t; f : = (x div 10 mod 10); sum2 : = t + f; writeln('сумма второй и последней цифры: ', sum); writeln('сумма второй и четвертой цифры: ', sum2); end; end.№3var a, b, c, rez: integer; beginwrite('введите первое число: '); readln(a); write('введите второе число: '); readln(b); write('введите третье число: '); readln(c); rez : = 0; if a mod 2 = 0 then inc(rez); if b mod 2 = 0 then inc(rez); if c mod 2 = 0 then inc(rez); writeln('количество четных чисел: ', rez); end.