Пусть Программа определяет длину введенной строки, Если L делится на 5 без остатка, то должно быть определено количество символов всего пробела.

Для решения всех задач используется формула S = v*t, где S - объем файла, v - скорость передачи файла, t - время передачи.
1. 
4 Мбайта = 4*1024 Кбайт = 4096 Кбайт
S1 = v*t1, S2 = v*t2
S2 = (S1/t1)*t2 = (4096/100)*75 = 3072 Кбайт

2.
8 Мбайт = 8*1024 Кбайт = 8192 Кбайт
S1 = v*t1, S2 = v*t2
S2 = (S1/t1)*t2 = (8192/100)*25 = 2048 Кбайт

3.
15 Кбайт = 15*1024 байт = 15*1024*8 бит
S = v1*t1, S = v2*t2
v1 = S/t1, v2 = v1+512 = S/t1+512 = 15*1024*8/120+512 = 1536
t2 = S/v2 = 15*1024*8/1536 = 80 c

4.
S1 = v*t1, S2 = v*t2
2 мин = 120 с
t2 = S2/v = S2/(S1/t1) = 4/(3/120) = 160 с

5.
3 Мбайта = 3*1024 Кбайт = 3072 Кбайт
S1 = v*t1, S2 = v*t2
S2 = (S1/t1)*t2 = (3072/60)*40 = 2048 Кбайт

Var
  x,f:real;
begin
  Write('Введите x: '); Readln(x);
  if (x>-2.4) and (x<5.7) then f:=sqr(x)
  else f:=4;
  Writeln('F=',f)
end.

var
  x,f:real;
begin
  Write('Введите x: '); Readln(x);
  if (x>0.2) and (x<0.9) then f:=sin(x)
  else f:=1;
  Writeln('F=',f)
end.

var
  a,b,c:real;
begin
  Write('Введите три числа: '); Readln(a,b,c);
  Write('Условие ',a,'<',b,'<',c);
  if (b>a) and (b<c) then Writeln(' выполняется.')
  else Writeln(' не выполняется.');
  Write('Условие ',b,'>',a,'>',c);
  if (a<b) and (a>c) then Writeln(' выполняется.')
  else Writeln(' не выполняется.')
end.