var i,d,a,b: integer;begincls;writeln('введите кол-во чисел');readln(a,b);d:=1;for i:=a to b do d:=d+1;writeln('cумма=',d);end.
забиваем числа 5 и 12 их сумма равняется 9
var i,d,a,b: integer;
begin
cls;
writeln('введите кол-во чисел');
readln(a,b);
d:=1;
for i:=a to b do d:=d+1;
writeln('cумма=',d);
end.
забиваем числа 5 и 12 их сумма равняется 9