Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N



Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Проверьте алгоритм трассировкой. Напишите программу на Паскале.    
алг СУММА
цел F, N, R
нач
   ввод N
   F:=0
   R:=0
   пока R <= N повторять
   нц
      F:=F+R
      R:=R+1
   кц
   вывод F
кон


Program zad_7_nica;
var F, N, R: integer;
begin
   write ('Введите N: ');
   read (N);
   while (R <= N)
   do begin
      F:=F+R;
      R:=R+1;
   end;
   writeln ('Сумма равна: ', F)
end.