Оператор цикла с предусловием.(Pascal)

[Slad]

Задание: Вводится последовательность положительных целых чисел, за которой следует 0 (признак конца последовательности). Определить сумму чисел, их количество, минимальное и максимальное число с их порядковыми номерами среди тех введенных чисел, которые оканчиваются на цифру нуль.

Сам попытался, но прикомпилировании выдает все нули, не могу понять: в чем проблема?

 
var
n, s, b, c, i, k: longint;
begin
writeln('n=');
i:=0;
s:=0;
k:=0;
readln;
while n>0 do
begin
i:=i+1;
if n mod 10=0 then
begin
k:=k+1;
s:=s+n;
end;
if n>b then b:=n;
if n<c then c:=n;
end;
writeln('KOL: ', k);
writeln('Max: ', b);
writeln('Min: ', c);
write('Summa: ', s);
readln;
end.

заранее спасибо

[Sciv]

1. В каком месте Вы вводите саму последовательность? (подсказка: найдите в своем коде readLn(n);)
2. Переменные b и c (минимум и максимум) нигде не инициализируются.

[kventin_zhuk]

Не запускал, но должно быть как-то так:

var
n, s, b, c, i, k: longint;
begin

  i:=0;
  s:=0;
  k:=0;
  n := 1;
  while n > 0 do
  begin
    write('n = ');
    readln(n);
    i := i+1;
    if n mod 10 = 0 then
    begin
      if n > b then b:=n;
      if n < c then c:=n;
      k:=k+1;
      s:=s+n;
    end;

  end;
  writeln('KOL: ', k);
  writeln('Max: ', b);
  writeln('Min: ', c);
  write('Summa: ', s);
end.

В задании нужно искать сумму, максимум, минимум только из тех чисел, которые оканчиваются на цифру нуль. А у вас минимум и максимум из всех ищет.

[Sciv]

kventin_zhuk и все-равно:

2. Переменные b и c (минимум и максимум) нигде не инициализируются.

[kventin_zhuk]

Sciv, Это, конечно, не есть хорошо, но в паскале по умолчанию нулём инициализируются, не?

[VIK_aka_TOR]

Сообщение от kventin_zhuk

Sciv, Это, конечно, не есть хорошо, но в паскале по умолчанию нулём инициализируются, не?

чаще всего да)

[Sciv]

Sciv, Это, конечно, не есть хорошо, но в паскале по умолчанию нулём инициализируются, не?

нулем, ага. И не есть карашо - тоже ага

Зачем учите человека сразу с элементарными недочетами кодить?

[kventin_zhuk]

Сообщение от Sciv

нулем, ага. И не есть карашо - тоже ага

Зачем учите человека сразу с элементарными недочетами кодить?

Ну вот и не поспоришь же