30 составте таблицей ! оля таня юля ира варили.варенье. две девочки варили из смородины две из крыжовник. таня ира варили варенье из разных ягод. ира и оля тоже варили варенье из разных ягод. ира варила варенье из крыжовника. из каких ягод варила варенье каждая девочка? ставте в таблице + или-

                               оля    таня     юля     ира
Смородина              +          +         -          -

Крыжовник                -           -         +         +

Всё просто:
1) Ира варила варенье из крыжовника, значит ставим + ей в крыжовнике.
2) Ира и Оля варили варенье  из разных ягод, зная что Ира делала из крыжовника, значит Оля не могла делать варенье из крыжовника, а из смородины могла. Ставим + Оле в смородине, а в крыжовнике -.
3) Таня и Ира варили варенье из разных ягод, тоже самое как и во 2 примере. Ставим + Тане в смородине, а в крыжовнике -.
4) Остаётся Юля, две девочки варили из смородины две из крыжовника, смело ставим + Юле в крыжовнике, а в смородине -.

Var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;
    
    while i < 7 do
    begin
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    end;
    
    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;
    
    repeat
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    until i >= 7;
    
    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    n := n + (n + 1) mod 2;
    s := 0;
    
    for i := 1 to 7 do
    begin
        s := s + n;
        writeln(n);
        n := n + 2;
    end;
    
    writeln(s);
end.

Как я понял, вам необходимо было исправить ошибки в коде. Если это так, то
Program ddd;
var tg, f:real;
x:integer;
begin
readln (x);
tg := sin(x)/cos(x);
if x<=-3.14 then f:=ln(cos(5*x)-2*x)+1;
if x>-3.14 then f:=0.35*tg*(0.1*x)-exp(ln(2*2.7)*(-0.1*x));
writeln (f);
end.

Обратите внимание, что вещественные числа указываются посредством точки, а не запятой (не "0,1", а "0.1"). Функция cos должна принимать какой-либо аргумент, ибо сама по себе она не представляет никакого значения (f:=ln(cos*(5*x)-2*x)+1; -- здесь вы cos * на выражение, что неверно). Приравнивать переменные одих типов к значению других -- ошибка (f:integer; - значение типа интеджер. ln(cos(5*x)-2*x)+1; - функция ln возвращает значение типа real. Следовательно, f не может присвоить возвращаемое значение функции ln).