{$N+$E+}
Program prik03;
{Soucet rady M + (M+1) + (M+2) + ... + (M+N-1)}

VAR
  i,m,n,sum:integer;
BEGIN
  WRITELN('Zadejte prvni scitanec (M):');
  READLN(m);
  WRITELN('Zadejte pocet scitancu (N):');
  READLN(n);
  sum:=0;
  FOR i:= m TO (m+n-1) DO BEGIN
    sum := sum + i;
  END;
  {sum := (2*M+N-1)/2*N;}
  {sum := M*N + N*(N-1)/2;}
  WRITELN('Soucet je ',sum);
  WRITELN('Stisknete ENTER pro ukonceni');
  READLN;
END.