1)q=sinx+cosy/cosx-siny*tgx*y
2)L=cosx/n-2x+16x*cos(xy)-2
3)u=|x^2-x^3|-7x/x^3-15x
4)y=sin√x+1 - sin√x-1
перевести в Basic​

Program primer; var   f: text;   i, j, h: byte;   l, k: smallint;   s, s1, s2, m: string; begin assign(f, 'f.txt'); {путь к файлу}   reset(f);     read(f, s);   s : = ' ' + s + ' ';   close(f);   writeln('укажите 2 слова через строчку');   readln(s1);   readln(s2);   i : = 0; j : = 0; m : = s; k : = 1;   while k < > 0 do     begin     k : = pos(' ' + s1 + ' ', m);     if (k < > 0) then inc(i);     delete(m, 1, k + length(s1));   end;   k : = 1; m : = s;   while k < > 0 do     begin     k : = pos(' ' + s2 + ' ', m);     if (k < > 0) then inc(j);     delete(m, 1, k + length(s2));   end;   m : = s; k : = 1; h: =0;   while (k < > 0) or (l < > 0) do     begin        k : = pos(' ' + s1 + ' ' + s2 + ' ', m);     l : = pos(' ' + s2 + ' ' + s1 + ' ', m);     if (k < > 0) or (l < > 0) then inc(h);       delete(m, 1, k + l + length(s2 + s1) + 1);     end;   writeln('количество слов соответствующих первому = ', i);   writeln('количество слов соответствующих второму = ', j);     writeln('непосредственно друг за другом     х', h); end.