Составить программу вычисления суммы натуральных чисел, начиная с 5 до заданного числа x...

Question

Составить программу вычисления суммы натуральных чисел, начиная с 5 до заданного числа x (x>5)

Answer 1

Var
sum: integer := 0;
num: integer;
begin
write('Введите число n: ');
read(num);
for var k := 5 to num do sum += k;
write('Сумма: ',sum);
end.