Написать программу для нахождения суммы первых пяти нечетных чисел (Паскаль)

Предыдущий
вопрос Следующий
вопрос

program SumOfFirstFiveOddNumbers;

var
i, count, sum: Integer;

begin
count := 0;
sum := 0;

for i := 1 to 10 do
begin
if i mod 2 <> 0 then
begin
sum := sum + i;
count := count + 1;

end;

writeln('Сумма первых пяти нечетных чисел: ', sum);

end.