С клавиатуры ввели число. Найти, каких цифр в нем больше: четных

var

 n, i, c1, c2: Integer;

begin

 Write ('Введите число: ');

 ReadLn (n);

 c1 := 0;

 c2 := 0;

 while n gt; 0 do begin

   i := n mod 10;

   n := n div 10;

   if i mod 2 = 0 then

     c2 := c2 + 1

   else

     c1 := c1 + 1;

 end;

 if c2 gt; c1 then

   Writeln ('Четных чисел больше')

 else if c1 gt; c2 then

   Writeln ('Нечетных чисел больше')

 else

   Writeln ('Количество четных и нечетных одинаково');

end.