У мения примерно есть
Даны два
целых числа A и B (A < B). Найти сумму всех целых чисел от A до B
включительно Program z(output);
var
i:integer;
sum:integer;
A:integer;
B:integer;
begin
A :=
5;
B :=
6;
sum :=
0 ;
for i
:= A to B do begin
sum :=
sum + i;
end;
writeln(sum);
end.