Паскаль GraphAbc. Два рисунка, написать программы

Нужно определить, сколько времени будет передаваться файл объемом 5 Мбайт по каналу со скоростью передачи данные 215 бит/с; к этому времени нужно добавить задержку файла у Толи (пока он не получит 512 Кбайт данных по каналу со скоростью 219 бит/с). 

Периведём объём информации в Мб в биты: Q = 5 Мб = 5 * 220 байт = 5 * 223 бит. 

Время задержки:  = 512 кб / 219 бит/с = 2(9 + 10 + 3) - 19 c = 23 c. 

Время скчивания данных Мишей:  = 5 * 223 бит / 215 бит/с = 5 * 28 c. 

Полное время:  = 5 * 28 c + 23 c = (256 * 5 + 8) c = 1288 c. 

ответ: 1288.

#include <iostream>

using namespace std;

int main()

{

   for(double i = 1; i <=25; ++i)

   {

       if(((int)i-1)%5==0)

       {

           cout << endl;

       }

       cout << "Earth - " << i << ", moon - " << i*0.17 << endl;

   }

   cin.get();

}

#include <iostream>

using namespace std;

int main()

{

   double num,sum=0;

   for(int i=0; i < 5;++i)

   {

       cout << "Enter number #" << i+1 << " -> ";

       cin >> num;

       sum+=num;

   }

   cout << "Average: " << sum/5 << endl;

   cin.get();

   cin.get();

}