Аспирант Саша нашёл в сети Интернет нужную статью объёмом 5 Мбайт, Однако доступ к её скачиванию есть только у лаборанта Коли. Саша договорился с Колей, что тот скачает статью и передаст Саше. Коля будет скачивать статью по Wi-Fi со скоростью 219 бит/с. Саша будет получать статью на телефон по сотовому каналу со скоростью 215 бит/с. Коля сможет начать передачу Саше статьи не раньше, чем скачает первые 512 Кбайт. Сколько времени (в секундах) пройдёт от начала скачивания статьи Колей до её полного получения Сашей?

1) долгая бумага 2) потверждает файл или папку

program xxx;

    var i, k : integer;

                  a : array [1..10] of real;

begin

  write('введите элементы массива а: ');

  for i: =1 to 10 do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.

смотри скриншот                                    

написано для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.