Задача с циклом пока и до: программа паскаль Вычислить сумму первых 10 натуральных чисел?

Предыдущий
вопрос Следующий
вопрос

program SumOfFirstTenNumbers;
var
i, sum: integer;
begin
i := 1;
sum := 0;

while i <= 10 do
begin
sum := sum + i;
i := i + 1;
end;

writeln('Сумма первых 10 натуральных чисел: ', sum);
end.