1111111111111111111111111111111111111111111111111111111111

10 минут

Объяснение:

Обозначим за  V  — количество данных,  q  — сорость передачи,  t  — время передачи

Тогда  V1=V2=12V=12⋅50=25  Мбайт

Переведём  25  Мбайт в Кбиты:

V1=V2=25Мбайт =25Мбайт⋅8бит=200Мбит=200⋅210 Кбит =50⋅4⋅210 Кбит=50⋅22⋅210 Кбит=50⋅212 Кбит

Время передачи определяется как  t=t1+t2=V1q1+V2q2 , где  q1=1024=210  Кбит/с,  q2=10242=512=29  Кбит/с

Таким образом,  t=50⋅212210+50⋅21229=50⋅22+50⋅23=50⋅4+50⋅8=200+400=600  c

Переведём полученный результат в минуты ( 1  мин  =   60  с):

600с:60с=10  мин.

1) в 4 и 6 строках заменить кавычки на одинарные (те которые там где русская буква Э. PascalABC другие не понимает, другие паскали тоже могут ругаться.

2) строка 8 оператор FOR требует перечисляемый тип например integer, так что чтобы все заработало придется переменные x, m, n объявить как integer (var x, m, n : integer)

3) в десятой строке исправить название функции возведения в квадрат на sqr

4) функция sin() считает в радианах. Если данные у вас в градусах то их нужно перевести в радианы.

5) не понятно для чего используется цикл если будет выведено только последнее вычисленное значение. Возможно в цикле пропущен блок BEGIN END;

исправленная програма будет выглядеть примерно так:

Program one;

Var y : real;

   x, n, m : integer;

Begin

   Write('введите число m ');

   Readln(m);

   Write('введите число n ');

   Readln(n);

   For x := m to n do begin

       y := sin(degToRad(4*sqr(x)));

       Writeln(y);

   end;

End.

ну и плюс поправил отступы и стилистические ошибки не влияющие на результат...