Найти сумму семи нечетных чисел натурального ряда, начиная с N>0. N вводится с клавиатуры.
Сделать нужно по 3 циклам в паскале (repeat until,for to do,while do)

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.