Найдите сумму натуральных чисел от 1 до m. Используя цикл с предусловием

Найдите сумму натуральных чисел от 1 до m. Используя цикл с предусловием
Гость
Ответ(ы) на вопрос:
Гость
program p1; var sum,i,m:integer; begin writeln('Введите m: '); readln(m); sum:=0; while i