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

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