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

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

Program n1;var S,i: integer;begini:=20;S:=0;while (i<=90) do beginS:=S+i;i:=i+1;end;writeln(S);end.