Сумма нечетных 5 чисел
на паскале
Найти сумму 5 нечетных чисел натурально ряда n>0

var    i, n, s: integer;begin    readln(n);    n := n + (n + 1) mod 2;        for i := 1 to 5 do     begin        s := s + n;        n := n + 2;    end;    writeln(s);end.