Question

Найти сумму натуральных чисел от 21 до D

Answer 1

var d,i: Integer;
begin
writeln('введите D:');
readln(d);
for i:=21 to d do writeln(i);
end.