program ExampleN;
uses Math; // объявление математических функций для вашей версии паскаля
var
a, b, d, s, y1, y2, x: Double;
begin
Write ('Введете границы отрезка: ');
ReadLn (a, b);
s := 0;
d := (b - a) / 10; // длина 1/10 отрезка
x := a + d / 2; // начальное значение Х = левая граница + половина отрезка (середина основания)
while x < b do begin // цикл по всей длине отрезка
y1 := Sqr (x);
y2 := 5 + x / 2;
s := s + Abs (y1 - y2) * d; // расчет площади прямоугольника и суммирование
x := x + d; // увеличение Х на 1/10 отрезка
end;
WriteLn ('Площадь = ', s :20 :10);
ReadLn;
end.
2 минуты = 120 секунд
Значит, 3750КБайт = 30000000Бит
Значит скорость соединения была:
30000000:120 = 250000Бит/с