Составьте программу вычисления суммы натуральные чисел от 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.