Question

Составьте программу с циклом по представленной блок-схеме в Паскале!

Answer 1

var m,n,summa,i:integer;beginreadln(m,n);i:=m;for i:=m to n dosumma:=summa+i;writeln(summa);end.

Answer 2

var m,n,summa,i:integer;
begin
readln(m,n);
i:=m;
for i:=m to n do
summa:=summa+i;
writeln(summa);
end.