Сделайте программу Pascal, которая для натурального числа, считываемого с клавиатуры, покажет нам результат вычисления чисел находящихся до заданного числа
a) сумма чётных чисел
b) сумма нечётных чисел
c)сумма чётных и нечётных

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

program SumOfNumbers;

var
num, i, sumEven, sumOdd, totalSum: integer;

begin
sumEven := 0;
sumOdd := 0;
totalSum := 0;

writeln('Enter a natural number: ');
readln(num);

for i := 1 to num do
begin
if i mod 2 = 0 then
sumEven := sumEven + i
else
sumOdd := sumOdd + i;

end;

writeln('Sum of even numbers: ', sumEven);
writeln('Sum of odd numbers: ', sumOdd);
writeln('Total sum of numbers: ', totalSum);

end.