Подсчитать сумму чисел от одного заданного до другого заданного

var
  cstart,cend,summ,i,chet,nechet:integer;
begin
  summ:=0;
  chet:=0;
  nechet:=0;
  writeln('Çàäàéòå íà÷àëüíîå è êîíå÷íîå ÷èñëî...');
  readln(cstart,cend);
  repeat
    summ:=summ+cstart;
    if cstart mod 2 =0 then
      chet:=chet+cstart
    else
      nechet:=nechet+cstart;
    inc(cstart)
  until
    cstart>cend;
  writeln('Ñóììà ðàâíà ',summ);
  writeln('×åòíûõ:',chet);
  writeln('Íå÷åòíûõ',nechet)
end.

 uses crt;
 var
  cstart,cend,summ,i:integer;
  key:char;
begin
clrscr;
  key:=readkey;
  if key='1' then
  begin
  summ:=0;
  writeln('Сумма Четных. Задайте начальное и конечное число...');
  readln(cstart,cend);
  repeat
    if cstart mod 2=0 then
    summ:=summ+cstart;
    inc(cstart)
  until
    cstart>cend;
writeln('Сумма четных равна ',summ)
    end;
     if key='2' then
  begin
  summ:=0;
  writeln('Сумма нечетных. Задайте начальное и конечное число...');
  readln(cstart,cend);
  repeat
    if cstart mod 2=1 then
    summ:=summ+cstart;
    inc(cstart)
  until
    cstart>cend;
writeln('Сумма нечетных равна ',summ)
    end;
  readln;
end.