Напишите программу которая вычисляет сумму первых n целых положительных чисел. Количество суммируемых чисел должно выводиться во время работы программы. Ниже представлен рекомендуемый вид экрана во время работы программы(данные введённые пользователем выделены полужирным шрифтом). Вычисление суммы положительных чисел. Введите количество суммируемых чисел-->20. Сумма первых 20 положительных чисел равна 210.​

Ответ:

Begin

Write('Введите количество суммируемых чисел-->');

Read(n);

For i:=1 to n do

Sum:=sum +i;

Write('Сумма первых '+n+'положительных чисел равна '+sum);

Объяснение: