Begin
K:=0;
readln(a);
if (a mod 2<>0) and (a mod 3=0) then K:=K+1 else a:=0 {можно написать что введено неверное значение и что бы пользователь запустил программу по новой}
не уверен что так но должно быть верно можно конечно попробовать через цикл всё это написать но это вроде не указано на блок схеме