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

Var i,s:integer; Begin i:=20;s:=0; While i<=99 do Begin s:=s+i; i:=i+1; End; writeln('Сумма = ',s); readln; End.