написать программу для пирамидальной сортировки по возрастанию (С++)

Андрей Правдивый
Руслан Хитрец
Леша Шутник
 Составил Леша

Var n,m,a,b,c,d,k:longint;
function NOD(x,y:longint):longint;
var c:longint;
  begin
    while y>0 do
      begin
        c:=x mod y;
        x:=y;
        y:=c;
      end;
      NOD:=x;
  end;
Function NoK(x,y:longint):longint;
  begin
    NOK:=(x*y) div NOD(x,y);
  end;
begin
  readln(a,b,c,d);
  n:=NoK(b,d);
  a:=a*(n div b);
  c:=c*(n div d);
  m:=a+c;
  k:=nod(a,c);
  write(m div k, ,n div k);
end

Чтобы посчитать количество информации нужно 
1.умножить 16 бит (1 символ) на кол-во символов на одну строку
16*64=1024 бит
2.умножить информацию одной строки на количество строк на странице
1024*56=57344 бит
3.умножить информацию одной страницы на количество страниц
57344*1024=58720256 бит
4.поделить это число (объем документа в битах) на 8 тем самым переводя его в байты 
58720256/8=7340032 байт
5.поделить это число на 1024 переводя его в килобайты
7340032/1024=7168 Кбайт
5 поделить еще раз на 1024 преводя файл в мегабайты
7168/1024=7
Ответ:7 Мбайт или номер 4

A := 8
b := 3
b := a/2*b = 8/2*3 = 4*3 = 12
a := 2*a+3*b = 2*8+3*12 = 16+36 = 52
Ответ: 52