Укажите правильный порядок убывания единиц измерения информатиции: байт, мбайт, кбайт, гбайт

Гбайт , мбайт , кбайт, байт

Program primer; uses crt; var a,b,c,d: real; begin clrscr;           write('введите длину отрезка a = ');           readln(a);           write('введите длину отрезка b = ');           readln(b);           write('введите длину отрезка c = ');           readln(c);           write('введите длину отрезка d = ');           readln(d);                     writeln;           if (a< =0) or (b< =0) or (c< =0) or (d< =0) then                 writeln('длины не могут быть отрицательными или равляться нулю')                                 else                 begin           if (a=b) and (a=c) and (a=d) then                 writeln('отрезки могут быть стороами квадрата')           else                   writeln('отрезки не могут быть стороами квадрата');             if ((a=b) and (c=d)) or ((a=d) and(c=b)) or ((a=c) and (d=b)) then                   writeln('отрезки могут быть стороами прямоугольника')             else             writeln('отрезки не могут быть стороами прямоугольника');               end;           readln; end.

var x1,y1,x2,y2,x3,y3,x4,y4: integer;

n1,n2: real;

begin

writeln('введите координаты первой точки - ');

readln(x1,y1);

writeln('введите координаты второй точки - ');

readln(x2,y2);

writeln('введите координаты третьей точки - ');

readln(x3,y3);

writeln('введите координаты четвертой точки - ');

readln(x3,y3);

n1: = sqrt( (x3-x1) * (x3-x1) + (y3 - y1) * (y3-y1) );

n2: = sqrt( (x4-x2) * (x4-x2) + (y4 - y2) * (y4-y2) );

writeln('длина первой диагонали - ',n1);

writeln('длина второй диагонали - ',n2);

readln;

end.

держи.