Обработка массивов

Обработка потока данных
Задача. С клавиатуры вводятся числа, ввод завершается числом 0. Определить, сколько было введено положительных чисел.
счётчик = 0
пока не введён 0:
если введено число > 0 то
счётчик:= счётчик + 1
нужен счётчик
счётчик увеличивается если число > 0
нужен цикл
это цикл с условием (число шагов неизвестно)

Обработка потока данных
var x, count: integer;
count: = 0;
read( x );
while x <> 0 do begin
if x > 0 then
count:= count + 1;
read( x );
end;
writeln( count );
откуда взять x?

Найди ошибку!
var x, count: integer;
count: = 0;
read( x );
while x <> 0 do begin
if x > 0 then
count:= count + 1;
read( x );
end;
writeln( count );
read( x );

Найди ошибку!
var x, count: integer;
count: = 0;
read( x );
while x = 0 do begin
if x > 0 then
count:= count + 1;
read( x );
end;
writeln( count );
count: = 0;
<>

Обработка потока данных
Задача. С клавиатуры вводятся числа, ввод завершается числом 0. Найти сумму введённых чисел, оканчивающихся на цифру "5".
сумма: = 0
пока не введён 0:
если число оканчивается на "5" то
сумма:= сумма + число
нужна переменная для суммы
число добавляется к сумме, если оно заканчивается на "5"
нужен цикл с условием
if x mod 10 = 5 then

Обработка потока данных
Задача. С клавиатуры вводятся числа, ввод завершается числом 0. Найти сумму введённых чисел, оканчивающихся на цифру "5".
var x, sum: integer;
sum: = 0;
read( x );
while x <> 0 do begin
if x mod 10 = 5 then
sum:= sum + x;
read( x )
end;
writeln( sum );

Найди ошибку!
var x, sum: integer;
sum: = 0;
read( x );
while x <> 0 do begin
if x mod 10 = 5 then
sum:= sum + x;
read( x )
end;
writeln( sum );
read( x );