Задача на Паскале

[spaincome]

Текст задачи: Написать программу, которая будет читать вводимые целые числа пока не встретится число 0. Необходимо вывести:

1)общее количество введенных целых чисел (исключая 0);

2)количество четных чисел;

3)количество нечетных чисел;

Входные данные (программа должна считать):

Последовательность целых чисел

Выходные данные (программа должна вывести):

Значения:

«Общего количества введенных целых чисел»,

«Количество четных чисел»,

«Количество нечетных чисел»

Значения должны быть выведены каждый раз с новой строки и соблюдая приведенную выше последовательность

[rubius2008]

...
repeat
   write('Введите число: ');readln(x);
   if x<>0 then begin
     k:=k+1; {всего чисел} 
     if x mod 2=0 then ch:=ch+1 {четные}
     else nch:=nch+1; {не чентные}
   end;  
until x=0;
...