Задача 5.1.Скласти програму для обчислення суми перших десяти цiлих чисел.
S = 1 + 2 + 3 + ...+ 10.

Program PR1;
Label M1;
Const N=10;
Var S,i:Integer;
Begin
I:=1; {Перше число}
S:=0; {Початкове значення суми}
M1: S:=S+i; {Додаємо число}
I:=i+1; {Визначити наступне число}
If i <= N Then Goto M1; {Перевiрити чи всi числа додали}
WriteLn ('S =',S) {Надрукувати результат на екранi}
End.

Результати роботи програми: S=55

Завдання 5.1.1. Знайти суму парних чисел вiд 1 до 10.
Завдання 5.1.2. Знайти суму непарних чисел 1 до 10.