Вопрос Pascal! Помогите, пожалуйста, написать программу.

[леха п]

Суть программы: Пользователь вводит неопределённое количество чисел, через enter. После того как он напишет 0 и нажмёт enter ввод чисел должен быть остановлен. И нужно найти количество чисел делящиеся либо на 2 либо на 5(0 не должен входить в эти числа, это как бы команда стоп). Со вторым проблем нет. Ввод делал через цикл. создавал массив. Но я не знаю как остановить цикл если был введён 0.

 

[chiter-pro334]

Readln(x); while x <> 0 do begin // что-то делаем с этим числом Readln(x); end;

 

[shum2517]

Массив тут нужен как рыбке зонтик. var x,s:integer; begin repeat s:=0; read(x); if (x mod 5=0)or(x mod 2=0) then s:=s+1 until x=0; writeln(s-1); readln; readln end.