Программа подсчета

[arnold]

label m;
var c,a: integer;
begin
c:=0; {Обнуляем счетчик}
m: ReadLn(a); {Вводим очередное число}
if a>0 then c:=c+1;
WriteLn('Из них положительных - ' ,c);
goto m
end.

Вот код программы которая при вводе числа подсчитывает сколько введено положительных чисел. Почему она считает все числа?

[Stilet]

Не подтверждаю.
Вот результаты отработки:

1
╚ч эшї яюыюцшЄхы№э√ї - 1
2
╚ч эшї яюыюцшЄхы№э√ї - 2
3
╚ч эшї яюыюцшЄхы№э√ї - 3
-5
╚ч эшї яюыюцшЄхы№э√ї - 3
-6
╚ч эшї яюыюцшЄхы№э√ї - 3
7
╚ч эшї яюыюцшЄхы№э√ї - 4

Все правильно.

[arnold]

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

Не подтверждаю.
Вот результаты отработки:

Все правильно.

Что за крякозябры

[BDA]

Что за крякозябры

В консоли кодировка cp866, а в программе строка в cp1251.

[Stilet]

Что за крякозябры

Я не в паскале проверял. Бывает )

[arnold]

На pascalabcnet даже при вводе отрицательных и нуля пишет их к положительным. Как такое может быть?

[eoln]

Ох уж эти недопаскальнеты. Путём наблюдения видно, что реадлн второй раз не срабатывает (почему надо спросить у разработчиков). Замени ReadLn на Read.
А лучше поставь FreePascal + IDE Geany