Напишите блок схему к данной программе!Пожалуйста.До завтра нужно!

program qq;var z, q, w, x , c: integer;begin repeatwriteln (' Введите целое положительное число :>10 '); readln (z);until z>10;q:=0;w:=0;while z<>0 do beginc:=z mod 2;z:=z div 10;if c<>0 thenq:=q+1elseend;writeln( 'Количество нечетных цифр в данном числе : ',q);end.

я только печатал)))

Спасибо большое)))