Вычисление суммы натуральных чисел отрезка [a,b] - Turbo Pascal

Формулировка задачи:

Написать программу для вычисления суммы натуральных чисел отрезка [a,b]. и Написать программу для вычисления выражения по заданной формуле: y=cos(n)+cos(n-1)+...+cos(2)+cos(1), n- вводится с клавиатуры. Если можно, то без reapet

Решение задачи: «Вычисление суммы натуральных чисел отрезка [a,b]»

Листинг программы

program 1;
uses crt;
var i,a,b,sum:integer;
Begin clrscr;
writeln("Enter a");
readln(b);
writeln("Enter b");
readln(b);
sum:=0;
for i:=a to b do
sum:=sum+1;
writeln("result=",sum);
readln;
End.

Объяснение кода листинга программы

Программа начинается с объявления используемых единиц и переменных: i, a, b, sum - все они целочисленные типы данных.
Строка clrscr; очищает экран перед началом работы программы.
В строке writeln(Enter a); пользователю предлагается ввести значение переменной a.
В строке readln(b); пользователю предлагается ввести значение переменной b.
Переменная sum инициализируется значением 0.
Запускается цикл for, который проходит по всем числам от a до b (включительно).
На каждой итерации цикла переменная sum увеличивается на единицу.
После завершения цикла выводится результат - значение переменной sum.
Программа завершается вызовом readln.