6. знак это есть элемент некоторого: a) конечного множества отличных друг от друга элементов. b) бесконечного множества отличных друг от друга элементов. c) конечного множества неотличимых друг от друга элементов. d) бесконечного множества неотличимых друг от друга элементов. e) бесконечного множества повторяющихся элементов.

Конечного множества отличных друг от друга элементов

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.

1)
 program numOp;
  var a,b:longint;
 begin
  write('a='); readln(a);
  write('b='); readln(b); writeln;
  writeln('Среднее арифметическое: ',((a+b)/2):0:2);
  writeln('Сумма: ',a+b);
  writeln('Разность: ',a-b);
  writeln('Произведение: ',a*b); readln;
 end.
2)
 program triangleInf;
  var
   kat1,kat2:longint;
   gip,s:real;
  begin
   write('Катет1: '); readln(kat1);
   write('Катет2: '); readln(kat2);
   gip:=sqrt(sqr(kat1)+sqr(kat2)); s:=kat1*kat2/2;
   writeln('Гипотенуза: ',gip:0:2);
   writeln('Площадь: ',s:0:2); readln;
  end.