Выразите через базовые множества m, n,k закрашенную область. подробно

программа на паскале:

program xxx;       var a, b: real; begin  writeln('введите количество миль');   readln(a);   b: = a*1.6;   writeln('кол-во киллометров - ',b)end.

скорость в мб/c 100/8 = 12,5 мб/c

переведем в кб/с = 12,5 * 1024 =   12800 кб/с

тогда время передачи будет равно t= 100/12800 = 0,0078125 секунд 

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.