Вычислить (1+sin0.1)(1+sin0.2) (1+sin10) для free pascal.

Var i,p: real; begin   i: =0.1;   p: =1;   while (i< =10) do     begin         p: =p*(1+sin(pi*i/180));         i: =i+0.1;     end;   writeln ('rezultat: ',p);   readln; end.

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.

в секунду передается 512кбит=512/8кбайт=64кбайт

за четыре минуты передалось 4*60*64=15360кбайт

в одном мбайте 1024 кбайт ⇒15360кбайт=15360/1024мбайт=15мегабайт

ответ: 15 мегабайт