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

Program n1;
var i,sum:integer;
begin
i:=20;
sum:=0;
repeat
sum:=sum+i;
i:=i+1;
until i>99;
writeln('сумма = ',sum);
end.