Написать программу,которая вычисляет сумму первых n-натуральных чисел. должны быть операции while и do

Var
  i,n,s:integer;
begin
  Write('n='); Read(n);
  s:=0; i:=1;
  while i<=n do begin
    s:=s+i;
    i:=i+1
    end;
  Writeln('Сумма равна ',s)
end.

Пример
n=10
Сумма равна 55