Дано пятизначное число x определить сколько в нем нечетных чисел паскаль 7 класс

//pascal var   x: longint;   count: byte; begin   write('введите число x: ');   readln(x);   while x < > 0 do   begin       if x mod 10 mod 2 < > 0 then           count : = count + 1;       x : = x div 10;   end;   writeln('нечетных = ', count);   readln; end.

фамилия

                  имя

          отчество