Помогите сделать код turbo pascal через операторы цикла

 program SumFrom1ToN; 
var 
  N, Sum, I: Integer; 
begin 
  Sum := 0;  { Инициализируем сумму } 
   
  { Вводим значение N } 
  Write('Введите число N: '); 
  ReadLn(N); 
   
  { Вычисляем сумму с помощью цикла for } 
  for I := 1 to N do 
  begin 
    Sum := Sum + I;  { Добавляем текущее число к сумме } 
  end; 
   
  { Выводим результат } 
  WriteLn('Сумма чисел от 1 до ', N, ' равна ', Sum); 
end.