Дано пятизначное число 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.

обозначи кол-во цветков, распустившихся позавчера за x, вчера - за (x - 11) (по условию). вчера распустилось на 11 цветков меньше, чем позавчера и на 32 меньше, чем сегодня и позавчера вместе.подставим x=12 (> 11) - цветков вчера, значит 12-11=1 - цветков завтра. цветков сегодня находим так: 32 (дано) - 11 (дано) = 21. 

ответ:

позавчера   - 12 цветков.

вчера- 1 (12 - 11 = 12+ 21 - 32) цветок.

сегодня - 21 цветок.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.