Составьте программу вычисления суммы натуральных чисел от 20 до 99 с использование оператора while

var  i, sum: integer;begin  sum := 0;  i := 20;  while i <= 99 do  begin    sum := sum + i;    inc(i);  end;  writeln(sum);end.