Написать программу,которая вычисляет сумму первых 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