Найти сумму натуральных чисел от 21 до D
Var d,i: Integer; begin writeln('введите D:'); readln(d); for i:=21 to d do writeln(i); end.
ошибься здесь чуток.)
нужно ещё добавить переменную, затем к этой переменной прибавлять 1 в цикле и потом уже вывести результат этой переменной.