Цикл с постусловием. подсчитать кол-во цифр в введеном с клавиатуры числе х кол-во троек. составить блок схему и программу

var

  x, count:integer;

begin

  write('x = '); readln(x);

  write('Количество троек в числе ', x, ' - ');

  while x > 0 do

  begin

    if x mod 10 = 3 then

      count := count + 1;

    x := x div 10;

  end;

  writeln(count);

end.