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

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