Написать программу в паскале ,которая вычисляет сумму ряда от 1 до n

Var i,n,sum:integer;
begin
  sum:=0;
  write ('N = ');
  readln (n);
  for i:=1 to n do sum:=sum+i;
  writeln ('Summa; ',sum);
end.