Написать программку на Паскале, используя цикл. Сущность программы: вводится число, а

var n,k1,k2:integer;

begin

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

readln(n);

while ngt;0 do

begin

if n mod 10 mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

n:=n div 10

end;

if k1gt;k2 then write ('Нечётных цифр в числе больше')

else write ('Чётных цифр в числе больше')

end.