Паскаль не видет ошибок, но не идет дальше ввода переменных(

[Koresh321]

Задача:
Дан ряд натуральных чисел. Найти в нем четные, их кол-во и сумму.

Вот я тут накидал, паскаль не ругается, но дальше ввода переменных после компиляции не сдвигается(

program blablabla;
var n,c,b,g:integer;
begin
write('enter min value')
read(n);
write('enter max value');
read(c)
b:=0;
g:=0;
       begin
       repeat
       if n mod 2=0 then
               begin
               b:=b+n;
               g:=g+1;
               end
       else
               n:=n+1;
       until n>c;
write(b);
writeLn(g);
       end;
end;
end.

Знаю что можно через массив решить но все же так тоже.
Ребят гляньте плиз, заранее спасибо.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[vovk]

забываете ставить ;

write('enter min value');
read(n);
write('enter max value');
read(c);

бесконечный цикл если n кратно 2

repeat
if n mod 2=0 then
begin
b:=b+n;
g:=g+1;
end
else
n:=n+1;
until n>c;
write(b);
writeLn(g);
end;

лишний end

end;
end.

PS логику не проверял

[New man]

У тебя счетчик n не изменяется. Правильно так:

program blablabla;
var n,c,b,g:integer;
begin
write('enter min value')
read(n);
write('enter max value');
read(c)
b:=0;
g:=0;
begin
repeat
if n mod 2=0 then
begin
b:=b+n;
g:=g+1;
end
{else            это ошибка из-за
n:=n+1;                        которой происходит зацикливание} 
inc(n);    // изменяем счетчик
until n>c;
write(b);
writeLn(g);
end;
end;
end.

[GetMax]

Правильно так

И что тут правильного? Программа по прежнему не работает.

n:=n+1;                        
inc(n);

Оба этих оператора выполняют одинаковые команды. Зачем их писать друг за другом.
Предлагаю свой вариант решения

var 
  n,c,b,g:integer;
begin
  write('enter min value ');
  read(n);
  write('enter max value ');
  read(c);
  b:=0;
  g:=0;
  repeat
    if n mod 2=0 then
    begin
      b:=b+n;
      g:=g+1;
      Write(N,' ');
    end;
    n:=n+1;
  until n>c;
  Writeln;
  writeln(g);
  writeLn(b);
  Readln;
  Readln
End.

[Koresh321]

Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Извиняюсь, больше так не буду

Всем большое спасибо, в особенности GetMax. Все работает!